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INTRODUCTION 


Perhaps the title O+ this new publication may 
at first be a bit deceiving. Å "survival guide" for 
Sinclair computer owners? Visions of a manual which 
describes which fungi is non-poisonous, or how to 
build a shelter out of scrub brush, may come to 
mind. But just like its outdoors counterpart, our 
survival guide dispenses important information. For 
the key to survival is knowledge. 

After four years of publishing TIME DESIGNS, a 
bi-monthly magazine, our file of contributed 
articles and programs did "runneth over". Its 
difficult to try and pack everything in one magazine 
especially when news and advertisements are 
essential. 

6 was our best 
solution to disperse as much information as possible 
to our readership. We felt that it was wrong to keep 
excellent contributions like these filed away. And 
if this idea works well, and we are faced with a 
similar "problem" down the line, who knows, we may 
publish a "Survival Guide Part 2". 

If you are like us, you have probably been a 
Sinclair fan for some time. Maybe you even owned the 
BLACK WATCH depicted in the old advertisement 
depicted below. But more than likely you have a more 
recent microchip invention such as a ZX81, GL, or a 
Timex product like the TS1500 or  TS2068. Whatever 
the computer model, I am sure that you have 
discovered the surprising power and uniqueness that 
im built into the computer's design. 

Our uncle, the inventor, Sir Clive Sinclair is 
not finished tinkering with technology. In a recent 
interview, he painted future visions of servant 
personal robot droids, а telephone that goes 
everywhere with you, and 20 megabytes of RAM on a 
four inch slice of silicon. 

What does this all have to do with a survival 
guide for microcomputers? We really aren't orphans 
or survivalists, but merely on the cutting edge of 


technology! - Tim Woods 
Touch and teil! 
Touching the case of the Black Watch Try the Black Watch on a 10-day money-back guarantee. 
instantly gives you hours and minutes... The Black Watch is exclusive, though shall fully understand if you eventually 
- not expensive. The design is very decide you would like something 
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NEW KEYBOARDS 
FOR OLD 


by Ken Malpas 


There is now an abundance of both Texas instru- 
ment keyboards and Timex Sinciair computers on the 
surplus market, and their similarity in wiring makes 
them near perfect mates for each other. Ali one need do 
is a little rewiring and the old fragile membrane 
keyboard can be replaced by conventional keys, the 
kind the "real guys” use. 

First, let me say that my knowledge of things elec- 
trical is very limited, and that when | started this enter- 
prise | knew nothing of how a keyboard worked, or what 
the inside of my computer looked like. | had two sets of 
instructions to go by which agreed with each other in 
certain ways and disagreed in certain ways. In the arti- 
cle you are reading, I have attempted to consolidate the 
best parts of each, and | also mean to mention a few 
points which they both negiected to explain. 

Beneath each key on the TI keyboard are two ter- 
minals ("pins") which become connected when the key is 
depressed. This action connects "vertical" and "horizon- 
tal" lines as shown in figure 1. Because of this grid, this 
is called a "matrix keyboard." Each key is known to the 
computer by a unique combination of two electrical im- 
pulses, one along a "vertical" and the other aiong a 
"horizontal" line. When these messages intersect in the 
computer, they convey the signal designated on the key. 
These "vertical" and “horizontal” lines are not to be con- 
fused with what seems "vertical" or "horizontal" when 
viewing the QWERTYUIOP typewriter keyboard from the 
normal aspect. Learn to view the keys according to this 
diagram. 

Since the wiring patterns for keyboards used by 
Texas Instrument vary according to manufacturer, it is 
suggested that the re-wirer (you) familiarize himself 
with the vertical and horizontal terminals beneath each 
key. This can be found by turning the keyboard over and 
identifying the external leads for the keyboard (shown in 
figures 2 and 7) as either vertical or horizontal, and 
following their lines around to the various pins. In doing 
this, the re-wirer should be aware that lines can seem 
mysteriously to end in unnumbered locations, only to 
have their reappearance in nearby unnumbered loca- 
tlons. These are sub rosa connections, tying several 
groups of pins along the line. 

| made a photocopy (figure 3) of my own keyboard 
and marked vertical terminals blue and the horizontal 
ones red. 

When reading lines and pins, It is necessary to 
avoid confusion. Line 8 is different from key number 8, 
and so on (key number 8 is not even on line number 8). 

From viewing figure 2, It will be noticed that the TI, 
with 15 externai leads, has two leads not connected to 
the Timex, which has only 13. Although the two 
keyboard formats have eight vertical lines, the ТІ has 
two extra horizontal ones (figure 2). One, line number 12, 
connects to most of the operator keys (SHIFT, etc.), and 
number 6 goes to ALPHA LOCK. These lines are not us- 
ed in the Timex. In figure 1 you can see that the remain- 
ing rows and columns would be the same as Timex if a 
few keys were moved about, and that is what we are 


about to do. 

Figure 4 shows the layout as we wish it to be ar- 
ranged. Each key you see on this chart will have vertical 
lines connecting it with the one above and below it, and 
each key wii! have horizontal lines connecting it with 
the one to the left and right of it. The shaded keys are 
those which have been subject to relocation, and all 
others remain as they are. Acquaint yourself with the 
original positions of these entities before relocation 
(code numbers will remain constant with key symbol), 
and with their new positions. Z, X, C, and V move down 
in respect to their horizontal neighbors. B moves over 
beneath N; N and M move higher: . and , are con- 
solidated into one key, and . becomes a SPACE key. 
SHIFT is brought into the new order by connecting 
unused line 12 to vertical 11, converting formerly 
horizontai 12 to a vertical line continuous with 11, and 
tying the other (formerly vertical, now horizontal) pin to 
line 8. 

In order to show how these migrations are to be ef- 
fected, let us use keys M and N as examples (figure 5). 
Originaily, M is connected horizontally with J. This con- 
nection must be broken on both sides of the horizontal 
pin for M, and connected with the next horizontal line 
above it. Because of the break in horizontal line 15, 
where M used to be, it is necessary to re-establish that 
connection with a jumper wire between any two points 
in that line which have suffered allenation, preferably 
two whose pins are located nearby each other on the 
keyboard bottom, so the cable will be short. This 
should be done after ail other modifications have been 
made, as it will then be clearer as to the best sites for 
these wires. Most of the lines to be altered are horizon- 
tal; only the line between B and V gets severed and B 
connected to N vertically. 

Figure 7 shows how | have done mine. The 
repetitious succession of nine connections along the 
near bottom (32-43, 31-42, etc.) are the displacement of 
keys from the horizontals; those iong ones near the top 
are the "jumper wires." Other wires shown on this 
diagram are optional finesses which will be explained 
further on. 

Now we are ready to begin the operation. Following 
are the precise manipulations. | cannot account for 
whether in your keyboard the pin in question has one or 
two lines going to it, so I have elected to use the expres- 
sion “totally isolating the pin from the line.” In practice, 
it means severing one or both lines to that pin. If only 
one line goes to the pin, the other pins on that line will 
not have to be re-connected, and no jumper wire will be 
needed. 

(43) will yield SPACE by totally Isolating the 
horizontal .(43) pin from all other pins on line 13, and 
connecting it to some conveniently located pin on line 
8. If this involves severing the line on two sides of the 
pin, a jumper wire will be needed to bypass the break on 
line 13. The SPACE BAR can be brought into effect by 
breaking lines to both of its pins and connecting them 
to lines 8 and 5. 
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ORIGINAL T1 LAYOUT: 


142) will yield “.” by totally isolating the horizontal 
442) pin from all other pins on line 14, and connecting it 


to some conveniently located pin on line 13. if this in- . 


volves severing the line on two sides of the pin, a jumper 
wire will be needed to bypass the break on line 14. 

M(41) will yield "M" by totally Isolating the horizon- 
tal M(41) pin from ail other pins on line 15, and connect- 
Ing it to some conveniently located pin on line 14. If this 
involves severing the line on two sides of the pin, a 
jumper wire will be needed to bypass the break on line 15. 

N(40) will yield “М” by totally Isolating the horizon- 
tal N(40) pin from all other pins on line 9, and connecting 
It to. some conveniently iocated pin on line 15. If this in- 
volves severing the line on two sides of the pin, a jumper 
wire will be needed to bypass the break on line 9. 

B(39) will yield "B" by totally Isolating the vertical 
B(39) pin from all other pins on line 11, and connecting It 
to any conveniently located pin on line 5. if this involves 
severing the line on two sides of the pin, a jumper wire 
will be needed to bypass the break on line 11. 

V(38) wil! yield "V" by totally isolating the horizon- 
tal V(38) pin from all other pins on line 15, and connec- 
ting it to any conveniently located pin on line 9. If this in- 
volves severing the line on two sides of the pin, a jumper 
wire will be needed to bypass the break on line 15. 

СІЗ?) will yield “С” by totally isolating the horizontal 
C(37) pin from ali other pins on line 14, and connecting it 
to any conveniently located pin on line 15. If this involves 
severing the line on two sides of the pin, a jumper wire 
will be needed to bypass the break on line 14. 

X(36) will yield “X” by totally isolating the horizontal 
X(36) pin from all other pins on line 13, and connecting it 
to any conveniently located pin on line 14. If this involves 
severing the line on two sides of the pin, a jumper wire 
will be needed to bypass the break on line 13. 


FIGURE 3 


Z(35) will yield "2" by totally isolating the norizon- 
tal 2(35) pin from ail other pins on line 8, and connecting 
it to any conveniently located pin on line 13. If this in- 
volves severing the line on two sides of the pin, a jumper 
wire will be needed to bypass the break on line 8. 

SHIFT(34/44) can be activated by doing two things: 
Link unused line 12 to line 11 by connecting the 
erstwhile “horizontal” pin at 34 to any conveniently 
located pin on line 11. There is no need to sever line 12. 
Next, cut line 3 between A-S-D-F-G and SHIFT(34). Con- 
nect the newly isolated SHIFT pin to any conveniently 
located pin on horizontal line 8. Only key 34 need be 
rewired, as Key 44 is in parallel with it. 


Make an electric series with a battery, a voltage 
meter, and wire leads to ascertain that the right pins are 
now connected to the right lines. If you connect this 
series to horizontal pin of key 43, for instance, will get a 
reading when the other end of the meter's the cable is at 
the external lead number 8. Do this for the horizontal 
and vertical lines of each key. 

Before making the final link of the keyboard to the 
computer, the more ambitious re-wirer may wish to 
make the following refinements on his keyboard, provid- 
ed that the keys on hís keyboard are positioned, as mine 
are, to be thus taken advantage of. 

1. An extra ENTER key, to the right of the usual one. 
Sever both lines to key 33 and connect to 32. 

2. You may want to de-activate the SPACE BAR oc- 
casionally to avoid hitting it accidentally during a pro- 
gram and causing the program to BREAK. Since there is 
no need for a SHIFT LOCK with the Timex computer, your 
ALPHA LOCK key can be used as a switch to activate or 
de-activate the SPACE BAR. It can be wired as illustrated 
in figure 7; the schematic is shown in figure 6. 


Spec aaa (47) 


SPALE (43) 


ALPHA, Lock (45) 
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3. Å press-only-once DELETE key can be made from 
keys 11 and 22 by gluing a plastic shim underneath the 
two keys so that when key 11 Is depressed, key 22 goes 
down with it (oniy key 22 need be glued to the shim). The 
wiring for this involves isolating the vertical pins for 
keys 11 and 22, and the establishment of their connec- 
tion to any convenient pin on line 2. See figure 7. 

4. Without any further re-wiring, FCTN(48) will yield 
you an extra EDIT key. 

Now that the keyboard proper is re-wired, it can be 
connected to the computer in the manner designated by 
figure 2. As you can see, the wires reach across one 
another and change positions. They сап be soidered to 
the TI keyboard leads, or a fancier disconnect ap- 
paratus can be employed. 

There are five screws which hold the upper and 
lower halves of the Timex together, some of which can be 
seen by removing the rubber pods on which the com- 
puter stands. Remove the five screws and open the case. 
it can be seen that the keyboard is connected by mem- 
brane ribbons set, by pressure only, into two units con- 
taining electrical contacts. The locations of the terminals 
on these two units can also be observed in figure 2. 

Take these ribbons out and fold them back out of 
the way. These two units will also admit conventional 
wire ribbons. The insulation must be stripped off one 
side of the wire ribbon so as to bare the wire on a single 
side only, and the entire ribbon end pressed firmly into 
the receiving unit. See figure 8. Notice that the five con- 
tacts of the "horizontal line” unit are oriented in an op- 
posite direction to the eight contacts of the “vertical 
line” unit, requiring that the ends for vertical be expos- 
ed differently from those for horizontal. Secondly, 
notice that the horizontal unit is closer to the edge of 
the motherboard than the vertical; you will want to make 


the length of ribbon going to one unit slightly longer 
than the other. Finally, take note of the fact that the 
electrical contact points in the computer connector 
units are set at distances of every other wire in a wire 
ribbon, so you will need to use onfy every other wire in 
the wire ribbon if you plan to insert it in the connec- 
tions. 

The end of any of the wires in the wire ribbon 
should be soldered ("tinned") in order to make its many 
strands into one filament. You do not want them to 
“frizz out” or cross over to a neighboring connection 
when inserted into the connector unit. When you are 
sure every wire is in position, firmty push the ends of the 
ribbon into the connector units. 

The case of the computer can be shut, with the wire 
ribbon extruding from the front of it, but you might have 
to file away at the case slightly. 

It has been suggested by one writer that the mem- 
brane to the old keyboard be cut up and each key from 
the membrane giued to the keys of the new keyboard. 
This has the advantage of allowing the operator to see 
readily the key symbois, but | recommend keeping a 
drawing or photocopy of the keyboard for that purpose. 
That way, you won't be burning your bridges after 
yourself. 
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DELETING A BLOCK OF LINES IN BASIC 


(and Machine Code) 


by Gale Henslee 


In the process of developing programs for the 
ZX81/TS1000, I have occasionally found a need to 
delete a large block of lines from a program. With the 
ZX/TS built-in editor, this is а tiresome chore 
involving repeatedly typing in blank program lines to 
delete the unwanted code. Most editor programs 
incorporate a function which automatically deletes a 
block of lines. I set out to determine whether the 
block delete function could be programmed in Sinclair 
BASIC without resorting to machine code, and ended up 
with the program which is the subject of this article. 

Of course, the program execution is very slow and 
the program could be made much shorter by converting 
ta machine code. This would also increase the 
execution speed dramatically, and I mill provide an 
example for demonstration purposes. However, it is not 
necessary to convert to machine code for the program 
to work. 

In order to delete a program line, the Sinclair 
editor locates the beginning and ending addresses for 
that line and then moves the next line and all the 
following code down to the address previously occupied 
Sy the deleted line. We will follow the same process, 
Simply locating the beginning and ending addresses for 
а block of lines instead of for a single line. We will 
also have to change the addresses stored in three 
important system variables in order to recover the 
display and the variables intact. 

Figure 1 illustrates the necessary elements for 
decoding a line in Sinclair BASIC in order to locate 
the line number, line length, beginning address, and 
ending address, using Line i as an example. Enter Line 
і on your computer as: 

1 REM 000000000000000 
and ENTER). The fourteen 
storage locations later. 


(1 REM followed by 14 zeros 
zeros will be needed for 


Each BASIC line ends with ENTER, code 118, and we 
cauld find the end of each line by searching each byte 
to see if it is an ENTER. However, this is not 


necessary, or very efficient, 
bytes following the 


since we can use the two 
line number to calculate where the 
end of the present line ің and the address of the next 
lines start. The line number, which occupies 2 bytes, 
is followed by a two byte number containing the length 
Of the text following it plus one for ENTER. 

Decoding line numbers is straightforward, but 
note that in contrast to most other two byte numbers 
in the ZBO, the line number is stored with its more 
significant (MSB) first. Each byte contains the 


byte 


Figure 1. 
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hexadecimal representation of a number from O to 255. 
If you PEEK the first two addresses of a line and get 
10 and 20 respectively, the corresponding line number 
is calculated am (104254) plus 20-2580. If you let s = 
the starting address of the line, then the line number 
is stored in locations S and S+1. 

If you continue PEEKing the next two locations, 
S+2 and S+3, you can calculate the line length as 
LENGTHsPEEK(S*2) ++256#PEEK (5+5) +4. The four bytes at 
the end of the formula are the tour bytes 5, 541, S+2, 
and 5+3. If you add LENGTH*S, you get the starting 
address of the next line. LENGTH+S-1 is the address of 
the last byte in the current line. 

You now have the information to locate the 
beginning and ending addresses for a single line or a 
block of lines, sO we can now start the program. 

Enter lines 1 to 20 as shown in Listing 1. To test 
this segment type RUN and enter beginning and ending 
line numbers (use 900 and 950 for testing). You should 
then see the line numbers echoed in the top right 
corner of the screen and be prompted to verify the 
numbers. Type "N" and ENTER, and the line numbers 
should disappear, prompting you to enter them again. 
Enter the line numbers again and type "Y", or just 
ENTER and you will be asked for a starting address. 
Input *O* and ENTER and the screen will briefly flash 
"START#16509° before going into fast mode. Try 
inputting a number other than 16509 and make sure that 


number is echoed correctly. 
When section 1 works properly, enter lines 32 
thru 72. These lines use the previously entered values 


of S, B, and E, to locate the beginning and ending 
addresses Of desired lines. They print these 
addresses, and give you a chance to decide if you 
still want to delete them. If you enter "N°, then the 
program stops. (This can be used to locate the storage 
address of a block of code for some other purpose.) If 
you enter "Y", the program continues and, in line 72, 
calculates D, which is the displacement of the 
following addresses required to delete the block af 
lines. The input and output prompts that create the 
utility screen plus al) the REM statements that are 
used to identify blocks of code in the program take up 
over 500 bytes of storage. Except for the input 
prompts for the beginning and ending line numbers, 
none of them are really necessary, and these lines can 
be removed if storage requirements are critical. In 
fact, the final version of the program does not 
contain them. They are given in Listing 1 in order to 
aid in learning the function of each block of code. 
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Figure 2. Organization of Program Storage in the TS1000 
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Now enter lines 24 to 120. This portion of the 
program is concerned with storing the addresses of the 
system variables which must be restored after the 
block move. It also stores the address of the first 


byte after the code being deleted, the address to 
which it is to be moved, the displacement, and the 
pointer for the next byte to be copied. These numbers 
are stored in locations 16514 thru 16527, which were 


created in the REM statement in line 1. 

Figure 2 shows how programs are organized in the 
ZX/TS memory. The system variables point to the 
divisions between the successive areas of storage. 
When a block of lines is deleted from the program all 
Of the memory locations past the deleted block up to 
E LINE are moved down in memory to close up the gap. 
The system variables still point to their previous 


locations and they must be changed xo that they point 
to the correct new addresses betore any other 
operations are attenpted. Otherwise, a crash will 


certainly be the unfortunate result. Once the process 
of relocating the BASIC code begins, it is not wise to 
try to access any BASIC variable, or to attemp to LIST 
or view the listing in any manner, until the system 
variables are changed to their new values. D FILE, 
VARS, and E LINE are critical in order to return the 
video display and variables area intact. The pointers 
END DELETE+1, START DELETE, DELTA, and POINTER are 
POKED into line one along with the system variables, 
so they can be manipulated by PEEKing and POKEIng. 
Thus we can, in effect, have variables in storage 
without accessing the variable storage area. The 
system variables D FILE (16396 and 16397), VARS (16400 
and 16401), and E LINE (16404 and 16405), аге PEEKed, 
converted to decimal values, decreased by DELTA, and 
finally converted back to their hexadecimal 
equivalents and POKEd to the appropriate storage 
locations. 

Up to this point, the entire program has been 
dedicated to preliminary manipulations and data input. 
Lines 122 to 140 should be entered now. Lines 124 thru 
140 actually move all the code from the delete thru 
E LINE. Lines 144 thru 154 restore the system 
pointers. Line 124 PEEKs the address POINTER and POKEs 
this byte to the address POINTER - DELTA. Line 126 
checks to see if POINTER is less than E LINE and 
either branches to line 130 to increment POINTER, or 
tg line 144 which restores the system variables and 
ends the program. ` 

The Block Delete program is now completed. Lines 
920 thru 1100 can be added to check for proper 
operation or you can add several lines of your 
choice. Be sure to SAVE the program NOW, before 
attempting to run it unless you want to type it over. 


You mill probably be disapointed to learn (as I was) 
that it takes over a minute to delete a block of lines 
using this routine. It is also over 2500 bytes...much 
too long for practical use. By deleting all of the REM 
statements except line 1, and all of the checkpoints, 
I was able to shorten the program to 1986 bytes. 
However, this did not decrease the execution time 
significantly and it still leaves one other problem. 


When you are through editing your program, you are 
left with 2500 bytes (and 81 lines) that you don't 
want. 


The program can be re arranged so that it will 
delete itself except for a few lines) by moving the 
code from lines 124 to 138 to the beginning of the 
program and adding a couple of GOTO statements. 
However, the only method that I know to speed up the 
execution significantly is to resort to machine code. 
Therefore, in order to have a useful program, in terms 
of speed, length, and utility, I decided to convert 
the Block Move portion to machine code. This provides 
a very dramatic demonstration of the power and speed 
of machine code compared to BASIC. (In this case, the 
speed increases by more than 100 to 1, and 40 bytes 
replaces over 700 bytes of BASIC). 

The program listed in Figure 3, is the machine 
code version of lines 124 thru 154. To enter it, and 
convert the BASIC program, first retype line 1 as: 


1 REM (54 zeros and ENTER) 


This provides 40 bytes for the machine code 
program and 14 bytes for storage locations. Next, 
delete all unecessary lines from the program. Delete 
lines 14, 16, 18, 20, 22, 24, 26, 28, 32, 40, 42, 58, 
60, 62, 44, 66, 68, 70, 74, 82, 90, 98, 104, 110, 116, 
and 122. Then enter the following lines: 


170 FOR N=16528 TO 16567 
172 INPUT АФ 

175 POKE N, AS 

185 NEXT N 

190 STOP 


SAVE the program at this point, then execute the code 
at 170 using GOTO 170 and input the codes listed under 
"Machine Code” in Figure 3, one at a time. You should 
receive the report code 9/190 after entering the code 
for RETURN, 201. Now enter the following lines: 


28 LET S=#16509 
124 GOTO 4 
2 GOTO 10 


Figure 3. Block Move And Restore Pointers Routine 


LABEL OR ASSEMBLY ADDRESS MACHINE 
COMMENT LISTING CODE 


Calculate 

# of Bytes LD HL, (16404) 16528 29 
LD BC, (16524) 16531 75 
PUSH 3C 16535 
AND Å 16536 
SBC HL,8C 16537 66 
INC HL 16539 

Store in BC LD B,H 16540 


LD C,L 16541 
Start 


Address POP HL 16542 
To 

Address LD DE, (16526) 16543 
Block Move LDIR 16547 
Restore 


D_FILE LD HL, (16514) 16549 
LD (16396), HL 16552 
Restore 


VARS LD 16555 
LD 16558 

Restore 

E LINE LD 16561 


LD 16564 
Return 16567 


Total = 40 bytes 


EDIT lines 4 to 12 in reverse order, changing the line 


numbers to: Listing 1. 
12 to 26 
OE 1 PEM 00080039090000 
8 to 22 2 CLS 
6 to 20 £ PRINT TAB S: 
4 to 10 SSS" , “SENTER LINE NUNSER: ST 
ART AT 2,19; "END" 
iE T 
Delete lines, 4, é, 8, and 12, and then enter the 5 INPUT B 
following lines: 3 PRINT AT 
“ 19 INPUT E 
42 PRINT AT 
4 RAND USR 16528 44 PRINT AT 
6 SLOW tv 
8 STOP 15 INPUT ыз 
43 IF Naa к" 
=. = D Tx a Aa: 
SAVE the program and then carefully check it against ga PRINT JT un 


Listing 2. The following lines can be added to check 
the machine code portion against that in Figure 3: 


БАРЕ НЮР: 


22 INPUT 3 
195 FOR N»16528 TO 16567 24 LO THEN LET 3218509 | 
200 PRINT NITAB BIPEEK N 25 PRINT AT 19.29; "START = “OS 
205 NEXT N 28 PAUSE 199 
210 STOP 39 FAST 
32 REM SEE 
За IF 258sPEEK S-PEER 2-15 + =6 
When the program checks out thru line 124, and the THEN SOTO +9 
machine code checks with Figure 3, SAVE IT. Now test 35 LET SaS+4+PEEK (5+2) -2S85+AE 
the program by deleting all lines past 124. This is EK 422250 ЭЙ 
м 2 - 2 = 
the final version of the program SAVE it. You will 29 PRINT AT 12,0; "LINE NUMBER 
find that it executes very, very fast, and that the ";B;" STARTS aT "S 
length has been reduced to about 1300 bytes (41 42 REM | 
lines), and you can delete the entire program past 4 LET T25}4+P EZK (5+2) ESE +РЕ 
Line 8 with no problems, leaving only 5 lines to ЕК (S+2) 
delete manually when your new program is completed. +5 LET TT-E 


LS IF 250+FEEK T+PEEK (THI ce 
THEM GOTO 36 
SQ LET TT328864PEEK Т+РЕЕК (Tai 


52 LET T=T+$++FPESK (T+2) «255+FE 
EK (T+3) 


Z6 LET T=T-1 


58 PRINT AT 12.0; LINE NUMBER 
";TT;" ENDS AT GT 
80 REM 3 


52 POINT AT 15,0; "SESE 
EET" 
$4 SLOU 


55 INPUT N$ _ 
58 IF Nga"N" THEN STOP 


76 LE SPEEK 15098+259+PEEK 1 
6297-0 

78 БОКЕ 18515,INT _ (F/255) _ 

39 PIKE 15514, (F-255+PEEK 1551 
5) 

22 REM FESS nee nee 

åt LET Р=РЕЕК 15400+255+FEEK 1 
6431-0 | 

35 POKE 18817,IMT iF ves: 

83 POKE 15515,iF-zS8sPEEK 1551 
71 

99 REM EDS 


92 LET F=PEEK 164944+2SS84PEEK 1 
5405-0 

94 POKE 15513,ІМТ (Р/255) _ 
3,2 POKE 16513, (F-256+PEEK 1551 


93 REM = _ 
199 POKE 1852S,INT ((T+1)/258) _ 
.i02 POKE 15524,T-1-Z55:PEEK 165 
= 
124 REH 
195 POKE 16527,INT ($7295) 
ӘЗ POKE 15525,35-2564PEEK 15527 
10 REM sE== 
12 POKE 15523, INT (0/258) 
14 POKE 158522 ,0-2582PESK 15522 
15 REM & 
13 POKE 15520,PEEK 15524 
20 POKE 15521, PEK 15525 
22 REM E 
Z4 POKE ((РЕЕҚ 15529+25A+PEEK 
15521) -(PEEK 18522+256+ØBEK 15852 
2 Д PEEK (PEEK 15520%25барЕШК 15 
26 IF (PEEK 15920+253+PEEK 155 
21) <! (PEEK 18518+255+PE5K 15513) 
+ (PEEK 15522+255+PEEK 16522); TH 
E gra 122 
GOTO 144 
IF PEEK 18520<255 THEN сото 
POKE 15522,2 
PUKE 18521,РЕЕҚ 1852141 
GOTO 124 
POKE 15528,РЕЕК 1852041 
GOTO 124 . 


REN PROGHA т 
PRINT LEVER LEFT CORNER" 


FOR J2K TO х-м 
PLOT J,Y 

PLOT J,Y«H 
MEXT J 

FOR Jzv TO Үзн 
PLOT x,4J 

PLOT XW, J 
1999 MEXT J 

1199 SLON 
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Listing 2. 


1 REM 09009000000000E-= 3AND 3 
US ?GRNDUAL Е GOSUB PT77° LPRIN 
GOSUB TARNO GOSUB HELENOS ERNO 
RNDS (RNDERRNDS =RNCOTA 
5070 19 
RAND WSR 15533 
SLOW 
STOP 

10 PRINT TAB & "Magen er 
ESEXGNCESQ"U, CENTER LINE NUMBER: ST 
ART’ AT 2,19; "END" 


25 
NT 
ЕЧ 


c gi f- by 


20 INPUT B 
22 PRINT AT 1,23;8 
24 INPUT E 
25 PRINT АТ 2,28;E 
23 LET 5=16509 
29 FAST 
IF 256+РЕЕК S«PEEK (3+1) ›=В 
THEN GOTO 49 
28 LET S=5+4+PEEK (3+2) +256+РЕ 
EK (542) 
38 GOTO 34 _ 
44 LET TaS+é+PEEK (5+2) +2554PE 
EK 1543) 
45 LET TT=E 
43 IF 255+PEEK T+PEEK (T+1)>E 
THEN 2070 55 
SØ LET TT=255+PEEK T+PEEK (Т+1 
) 


LET TaT+4+PERK (T+2) +eS5< PE 


3 

LET T=T-1 

СЕТ D=T+1-3 

LET F=PEEK 18298+256+PEEK 1 
P 


A 
4 
s + 
Caca 
j= 
a 
ғ 
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Printer Utility 


by Earl V. Dunnington 


This is a short program for those with a 7Х81/Т51000 
(and 751500), that use an 80 column printer, 
interface, and driver program, that will not do a 
screen dump. Note: see the REM statements for any 
instructions or comments. 


i REM 30 COLUMN PRINTER, 
73190971599, SCREEN COPY, 
TEXT ONLY. 
PROGRAM BY EARL DUNNINGTON 
2 REM LINES 1 TO 55 AND та 
ARE FOR DEMONSTRATION ONLY 
19 FOR М=а TO 2 
FOR M=32 TO 563 
PRINT CARE M; 
NEXT H 
HEXT N 
REM THE BASIC STATEMENT OF 
50 MUST BE IN YOUR PROGRAM 
503U8 98830 
STOP 
T$ (32) 
ЕТ N=l+(FEEK 15395+255+PEE 


S=N+725 
M=1 TO 32 
ТЖІН! sCHRS PEEK N 
М=м+1 
NEXT H 
LPRINT T$ 
LET М=М+1 
IF N=š THEN RETURN 
GOTO 3912 


"REAL COMPUTING POWER" 


FOR YOUR ZX81/TS1000 


by Kenneth Tindle 


The Sinclair ZX81 may just be the most cleverly 


designed computer ever made. I bought one by mail 
years ago, betore Timex ever got involved. It's a 
great machine to learn computing on, as it can teach 
BASIC and machine language programming like no 
other. Some people, however, may overlook the true 
power of the Sinclair machines and automatically 


assume that they must get a fancier brand to have 


"real" computing power. 

Don't you believe it! The ZX/TS computers do 
have four problem areas; these were engineering 
decisions made to keep the price low. Overcome these 


and you have a venerable 280 based computer. 
Two Of these problems have already been covered 


by many books and magazines. That blasted little 
membrane keyboard is quite an annoyance (for a fix, 
see the first article in this book). The other 


problem is slow and unreliable cassette tape loading 
and saving af programs. This can be fixed by getting 
a data compression program like ZXLR-9Q or " 
8K-16K 


and putting it on EPROM, mapped into the 
block of memory. If you want to go the whole mile, 
Larken Electronics (RR#2 Navan, Ontario, Canada 


K4B-1H9) now has а DOS and controller card that will 
let you use one or two easily obtained 5 1/4 
IBM-type disk drives. Imagine real honest-to 
goodness disk drives on a ZX81: 

The other two problems only appear when 


connecting an external 16K RAM pack to a stock ZX81. 


These are thermal and RAM wobble crashes. The power 
supply is overloaded by fifteen extra chips it now 
must drive... there is just not enough heat sinking 


provided for that poor hard-working 7805 
the lack of gold-plated fingers on the edge of the 
main PCB is like asking for momentary disconnection 
crashes. How to kill the problems and keep the RAM? 

The Japanese have a solution. Their companies 
are responsible in large part for increasing 
capacities of static RAM chips while driving prices 
down. Hitachi has a chip numbered HM6254LP-13 which 
is an 8Kx8 static RAM, and is ideal for our 
purposes. Have your computer take two of these and 
in the morning you'll have 16K of internal RAM. As 
an extra plus, you do not have to stick with 
Sinclair’s power supply scheme either. The Sinclair 
power packs require nine volts and five volts. This 
means you can remove the internal 7805, jumper its 
pins one and three (short Vin to Vout), and then hit 
the 9VDC jack with an external source of regulated 
five volts if your computer still overheats. 

The best source I know of for these static КАМЕ 
is: JDR Microdevices, 1224 South Bascom Ave., San 
Jose, CA 93128. They also sell the 28-pin soldertail 
IC socket (which you will need). 

When you get the new Chips, handle them 


carefully to avoid zapping them with static charges 
on the pins. Keep them in their anti-static sleeves 


regulator. 


or foam, and when you install them, don’t wear shoes 
or work around plastic sheets or wrappings. Only use 
a soldering iron with a grounded tip to prevent 


voltage 
inputs. 

In addition to the iron, 
а desoldering braid or wick, and some small diameter 
rosin core solder. Visit your local Radio Shack 


store for the transistor and two resistors shown on 
the schematic. 


To start the conversion of either а ZX81 or a 
TS1000, all old RAM must be removed. These will be 


transients from damaging the delicate CMOS 


you are going to need 


one or two chips in a 2Х81. If there аге іно, you 
will see the number "2114* on their tops and they 
will be only half as wide as the others. If there is 
one, it will have “4118” on its top somewhere. A 
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"49814" 
these 


іш 2K memory for а 
chips will be 
board opposite the side with the RF 


TS1000. In all cases, 
located nearest the edge Of the 
modulator for 
the TV. Any chip with designation MK36809 or 
anything with 40 pins must be left alone. 

If you have only a desoldering braid, 
it to remove all solder from the foil side of the 
board. Then use it on top too, where the pins meet 
the upper board traces if there is nc socket. While 
you are actually lifting the chips off the board, 
check to see that nc traces are still soldered to 


then use 


the pins. Tf any traces are broken in the removal 
process, they will have to be jumpered later, but 
try to keep the board as intact as possible. This is 


sometimes not as easy as it sounds. Also remove the 
memory selection jumper Li or L2 which will be close 
to the space for a 28-pin RAM. 

After you have stripped oft the old RAM, you 
must change the board to accept the pin-out of the 
new RAM. Pins 2,21,22,23 are the only changes. On 
the top, cut the trace to pin 2 on both sides. Also 
cut the trace between pins 20 and 22. On the bottom, 
cut the pad on pin 23 free mithout breaking the 
trace to pin 27. Install the 28 pin socket and tape 


it down from the component side. Solder all ping 
except 2,22 and 23. Remove tne tape and install five 
jumpers. On the component side, put one jumper from 


trace 16B 
hole that 


on the edge finger (use a plated through 
is connected to that finger) to the center 


Figure 1: IC Pin Layout 


26 


22 | [5 


6264 LP-/IS 


Notch or Dot 
@ for pin 1 


hole of Li-L2. Connect the Li hole to the five volt 
side of R17. On the foil side, connect pin 2 with 


trace 148. Connect pin 22 to trace 17A, and pin 23 F E 
with ISB. "А" refers to the fingers on the top, igure 2: Transistor Inverter 
while "В" means the underside. I used wire wrap 


(small gauge solid) for all jumpers. 

Now that you have the socket fully ready, 
in&tall one RAM chip in the correct oríentation with 
pin 26 turned up. Then install the second chip right 
on top of the first (piggy-back) with its pin 26 
turned up as well. Now use your iron to solder all 
the pins together except the two you have bent up. 
Now connect the transistor inverter to these two 
pins according to Figure 2. Position the transistor 
and resistor leads so they can't short against 
anything. Note the transistor’s pin contiguration in 
Figure 2. ` 

Now all that remains is to recase the board and 
enjoy crash free operation. Happy Computing! 


Trace 
Parts List 138 
U1,U2 - Hitachi HM6244LP-15 ӨКх8 static RAM (A13) 


601 - 28 pin IC socket, solder tail 

gi - 2N3904 NPN general purpose small signal 
transistor 

Ri - 10К,5%,1/8 or 1/4 watt carbon film resistor 

R2 - 2.2K,5*,1/8 or 1/4 watt carbon film resistor 


TIMEX COMPUTER CORPORATION 
COMPUTER ENGINEERING 


TECHNICAL MEMO # 0001 


TITLE: TS1000 AND TS1500 1/0 COMPATIBILITY 


K. Paternostro 
Nov. 7, 1983 


I. I/O PORTS AND DISPLAY PROCESSING 


The following I/O conditions are hardware defined in the SCLD of the two 
computers and ars. controlled by the firmware: 


IBS/SLCR: This is a keyboard strobe signal which enables a reading of the 
keyboard and tape input. LE also generates the vertical sync pulse 
necessary for TV displaying. The sama Т/О condition causes a 
latching of the line counter reset in hardware. This counter is 
used to keep track of the pixel line number within the characters 
being displayed. At the end of one frame the line counter requires 
a reset as the number of TV sweeps is not divisible by 8 (the 
mumber of pixel lines per character). 


ILA: This is a raset of tha latch which enables the reset of the pixel 
line counter (0 to 7). In this way the line countar can only be 
reset by a setting of the reset latch (SL). 


SNMIEN: This signal is an enable to the поп-тазкаріа interrupt generator in 
the SCD. This signal із activatad just prior to the creation of 
the top and bottom margins, then with each sync pulse that occurs 
an NMI is generated and counted. When the number of NMI's equals 
the desired number of lines for the margin, an RNMIZN is done and а 
jump into the display mode is made. 
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RNMIEN: This is a reset signal for the enable to å non-maskable interrupt 
generator in the SCD.  NMI's are used as a counter: during the 
creation of the top and bottom margins in the TV display; therefore 
prior to the jump back into the display routine, the NMI generator 
must be disabled by this signal. 


II. DECODING CF THE L/O PORTS IN THE TS1000 


HARDWARE DECODE FIRMWARE PORT USED 
KHS/SLCR: TORQ RD with Ad=0 FE RD 
RLCR: ANY IORQ WR PX WR; X=any value 
SNMIEZN: TORQ WR with А0=0 FE WR 
RNM TEN: TORQ WR with AL=0 FD WR 


III. DECODING OP THE T/O PORTS IN THE 7515000 


HARDWARE DECODE FIRMWARE PORT USED 
KBS/SLC2: TORQ RD with A0=0 and A791 FE RD 
RLCA: ANY TORQ WR with А7=1 FX WR; x=any value 
SNMIEN: TORQ WR with A0=0 and А7=1 FE WR 
RNMLIEN: TORQ WR with Al*0 and A7=1 FD WR 


IV. COMPATIBILITY RULZS 


Since A7 is used in the decoding of the Т51500 and is not used in the 1000 
there are twice as many ports available in the former for use to third party 
vendors. Also, if any software written for the 751000 attempts to access any 
of the above signals tha condition of A7 must be met in order to achieve the 
same results in the 1500. For example in the 751000, an instruction IN 00 
will cause an enabling of the keyboard read, however it will nøt in the 1500 
аз A7=0. ‘Therefore, the comparable instruction for the 1500 would be TI 30. 
For third party vendors uno wish to port map external harware for роса 
machines, the condition should Ба: А7 equal to zero, А0 and Al equal to one 


for any I/O WR, and А7 ecual to zero аса AO ecual со one for апу 1/0 RD's. 
Therefora, the following ports are available for 1/0 WR's: 


оз 07 08 OF NOTE: 73 and 77 are being used in the Modem. 
13 17 ІЗ 1? 
23 27 28 27 
33 37 JB ЗР The following are available for T/O RD's: 
43 47 ав АР 
53 57 SB SP 91 03 05 07 09 ов OD OF 
63 67 6B 6Ғ 11 ІЗ 15 17 19 із 1р 15 
73 77 B TF 21 23 25 27 29 B 2D 2F 
3l 33 35 37 39 3B 3D 3F 
41 43 45 47 49 48 40 4Ғ 
S1 53 55 57 59 SB 50 SF 
бі 63 65 67 69 6B 60 GF 
91 73 7S 77 79 78 7D TF 
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STRATEGIC FOOTBALL 


by Michael Zerbo 


STRATEGIC FOOTBALL is a two-player game for the 
ZX81/TS1000 with 16K RAM pack and the 751500 
computer. After typing in the following listing, 


make sure the program is in the SLOW mode before 


entering RUN. There are easy and hard levels of the 
program which can be chosen at the beginning of the 
game. 

The game is timed and a two minute warning will 
be displayed near the game’s end. Each player takes 
turns at the offense and makes the strategic 
decisions. The plays available are displayed on the 
upper right-hand side of the screen. Simply enter 
the number next to the play you want. The offense is 
shown as X's and the defense ав O's. The computer 
controls the defense for both players. 

After one of the players chooses his/her play, 
1t will be acted out on the screen. To make the 
program simpler, and easier to create, I have both 
players face the same way on offense. The marker on 
top of the screen shows which player has the ball. 
When getting close to the goal line the players go 
into a goal line offense. You can choose the sane 
plays as before, but they won't be acted out on the 
screen. Instead, the computer will simply say 
whether ar not the offense was held. At the end of 
the game the computer will state which team won. 

1f you would rather not type in this listing, I 
will send you a copy on tape for 84,00. Му address 
is: Michael Zerbo, 16 Colony Drive, West Sayville, 
NY 11796. 


J REM "STRATEGID FOOTEALL” 

2 SEM BY MICHAEL ZERBO 2/22/24 
+ LET vi=20 

3 LET Баз 

5 LET H=2 

T торша 


же: з@ сй: 1+ OG 
LET à 


22 F81NT TAG 1; mw... aa... 


32 
i8 
із 2B 
OT BALL 
zi ILLO 
SRIHT D, "TERM 2 ‚ат 
TE d 
RI =Амаі 10: 
I AH-1.10; g" 
i 12: MENES ` 2 
"E PASS 3 LONG В 
SCREEN PASS 5 MI 
SSIS-PESK 15436- 
iaa 
EN созыв 3508 


n г 


тіні 


ME: 2420 THEN GOT 3 
=à AND TIME: =350 THE 


Dc 65 
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7021 PRINT 


LET K=INT 
БОТО 7120+ tks 


тігі PRINT AT 11 
R-1; "MAT 12,2-1; 

7192 FRIMT AT 11,R ⁄ 
SR AT 15,R-1; WA. 
7103 LET Year+? 
тізі PRINT AT 12,5; "SE" 
712S Fū 

7105 2 

42. 3 

12 

1а 

то 

Nr 

11; 

-1 


EE 


4741404 4465 40437144 D 444 13D 
ba b= be Be 


72123 FOR 
7128 Patt XA 
д; "зш" 
7127 MEX y 
7128 RETUR 
7128 IF Бол THEN BOTS 
7131 PRINT ат 11,2-5: A! 
ТІЗІ PRINT AT l3 2-i: "ан AT 1 
т 2-і SN 
ce ; 
7133 PRIHT ST 18,R-1: COM" 
тала 2BINT AT 12,98; "€ 
талас + mmo ^ 
7235 LET 
тісі FOR о 
тіз? ZRIM A-1i; MAT 22.3 
ke = 
TASS NEST US 
тізе LET Sani 
Tieg RETURN 
7200 IF O2 THEM SOTO 7720 
12 SRINT ST 12 S-2; E 
i татыт AT Le 
"АТ i2.8- 
үз 
та, 
із 
Ті; 
QR 
tS 
= r 
ел 
15 
б +: 
18 
R+5 


= 
z L7 Ree) LAT 1955 
+; 
Tels LET X=IHT iRND*Z4)-1 
7229 IF x=24 THEN SOTO таза 
7221 IF Е=1 AND хоз THEN GOTO 72 
sa 
7222 IF Ese AND «>8 THEM GOTO 72 
зә 
7224 LET = +Іа 
7225 FOR Е-Е-і TO 8-2 
7225 PRINT AT 16,7: EM 
72287 MEXT F 
7222 PRINT AT 18.R+9 "X 
7229 PRINT AT La R++; "S" 
7220 FÅ Fea TO 10 
7231 ser д +з; “ЖШ. va 
Ems INT AT L6.R+3 ре | рат 18, 
7222 NEXT F 
7233 LET Ra=A+3 
7224 RETURN 
72350 FOR F=R-l TO R+5 
7252 PRINT AT 185: EAM" 
Tess MEXT F 


7258 CETURN _ uu К 
таза PRINT ат 18,H«1; EO AT 16,8 
ке 
7221 PRINT AT 15,2-2, ШШ 
7222 IF ду THEN SOTO 7291 
7232 LET va=v-7 
Teas FOR ҒаӘ ТО 10 uu le 
7235 осімт AT 18,PR-2; "RE" AT 18, 
E ERO 
7E 
ve 
т 18,R-2; SEP AT 15 
. i56,R-- 07 " 
7 =o a ia _ _ 
т AR 18,R-4; "GK AT 15, 
E ше 
> HET F 
z SAINT aT 15 
7 IF TEAM=L Т 
7 TS TEAM=2 T 
7 багыт AT 18 
^ к - 
T I 
- x 
; I 
7 = le 
12.6 i 
T 13 _ 
La QR 
Aa R+2 _ 
5.8- а, 
QR: _ 
Tate ат” 
R+3; BT 3 


Wa Ye T3 li 
di 


3,5-2 
eS 
a DAT 7.3 
T S,R«. 
a = _ 
= IF E-I1 sara 7 
-14177 
2 
7222 IF Е-е AND 933 THEN GOTI 72 
Ta 
+53 
722 
тоз + "m; туға 
19: 
7242 FOR Бай TO 19 _ 
7244 SRINT AT Tana ws. WT BS R + 
57 А 


BP Etg 
-r 


ЕТ 
mop 


2 т 
Ті i M^ 
-і т 11,5-1 "ЕЕ 
Ta =L 40 IHT Кожа) +L: 
= рік 7459 
= т ^ —— = 
Ti ше Чо INT RND =+)? 
== ота 749882 
Та INT IRHD2231 +115 =i THEN 5 
aT: Las 
7425 сас; 
этү, mn 
7227 Fie 
тас RI 
' T 
Tees HEX 
таз ЕТ 
THe = 
TED ET! 
таш & Th 
521 ñ 
таш R Fea TH 19 
TLSS INT ST La n BE AT 9 5 
mu aT ia с." 
Tie? MENT = 
туз = 
SE 
BEST. 
ant 
PI 
751 
таша 
тас 
"¿= 
7454 
таза 
таза 


1 


тат 
T722 
тот 
тоз 
теа 
тсос 


BERT 
7907 
+13 
т-аз 
ттаз 
75128 
>= 
TE 
TS 
Se 
== 
Lad 
IHE 
сы” 
To 
= DC TEED. GOR 


= 
7S 
-=5 
= " 
787i 
7535; 
755 
757; ЕМ 
753 
7572 IF =5 THEN LET vel 
TE74 GOTO 7700 
75908 IF 2:57 THEM LET vel 
7701 IF Usa THEN SOTO 7758 
ттәс PRIMT AT 14,13: "ØM" AT 12 13 
щат із ; 12.2 „ЖИЕ 
T 12.28," ir 2 
2; "BØ ат 
AT 18.23; 
77858 28th “ OD 
7728 FOR 
7707 MEXT 
7719 IF T LET Ha=m+i 


іі IF TEAM=2 THEN LET C=C+2 

12 GOTO 7511 

Sa PRINT AT 14,13; BBW AT. 14.1 
“@# AT 13.19; "BAT 12,255 R; 
12,20; "MAT 12,20; m r 1+, 


[e 


| 
ser es 
S2 PRINT AT 16,20; SEEN" 
53 FOR F=0 Tü 29 
S4 NEXT F 
S5 LET 039 
E5 LET va=100-V 
7787 LET R=INT (7/3.333334) +1 
7778 LET Уізу 
ТОР СЕТЕ 4515 
7399 FOR 1,48 TO 19 
зара RTh 


agas sTOF 

3489 FOR HSS TO 1 

3410 сптыт ST U. 1; isa 
3412 MEAT iJ 

342 


a 
a PRINT AT 2,2; “ИШЕ ША Waq ыш: 
"ss 


i 
" 


асай FOR wes TO 13 
Saas огтыт AT Jj 1; 
Sagi WHEAT v 
теңе PRINT AT 12,R-1; "AU AT 12,8 
aats PRINT ST 1Ø,R-2: "8" 
2005 PRINT AT 19,R; ҰАТ 3,8-1; 
айат PRIMT AT S RI MUI nT Ll. R; N 
"LAT i2,R; A TAT 1LS,R; "#4" 
зараз PRINT AT 18,7423; "ØST 7,79 
“EPC AT 22,744) IRT 138,2R+35 m 
a SAINT ST 3,822; "QU: AT 11,54 
"AAT LS Ree; "MAT 18,R+2; m 
11 IF үзэча THEN GOTO таза 
13 IF vi+lør=vy THEN LET Ded 
12 IF vl+løi=sv THEN LET Үзу 
i2 LET bate 
да IF 2:4 THEM SOTO 3200 
21 POGKE 18418,2 
zz FRIHT ST Е 
Delage ы Y 
її сапр LINE 
Qz2 FOR Fsa TO 48 
осі NEXT F 
йз POKES 15418,2 
aza RETURN 
asa LET N-S580-i0vY-20! 
asā IF vl+løi=sy THEN LET D= 
әзі IF vi+løisy THEN LET risy 
осе LET D=0+1 
ØST IF Do4 THEN GOTO 3280 
Basa сокЕ 154183,0 
3980 SRINT ST 22,3;0." DONN AND 
Э +1Ø: -v;" YARDS TO SO"iAT 22 
mun "YARD LINE" 


FOR Fea TO 49 

NEXT F 

SPOKE 16413,2 

RETURN 

LET TEAM=(TEAM=L) +2+ (TEAH=2 


PESOS 
ETD D 
mO p W 


uaa iod AD MED MD MD EU iD 


281 LET Үлій-Ү 

202 LET R=IMT (v 2.222224) +1 
тәл LET C=0 

286 LET visr 

Baa 3070 59 

зда FOR F=5 TO 13 

зар SRIMT ат = 1; SEE Er 
9202 NEXT F 

3288 PRINT AT 5,2; “ERRMSG 
2548 INPUT O 

азда Із 0‹1 OR 9:5 THEM SOTO 3290 
3 

2210 IF O=8 THEN SOTO 7509 

3211 LET U=INT iRND+10) +1 

2313 IF ut=3 THEN SOTO 9350 

3515 LET LN=ITEAM=11 2+ TEAM = 
S220 251 3,3; ‘DERN | i; Жш 


ТЕ TEAMS. THEM LET H 


=rt+7 
ТЕ TEAM=2 THEN LET С=0+7 


FOR F=8 TO 10 
ARINT AT 12.2: "TEAM: "TEAM 
a 


арип adu 


2iTEAMzl)sz4.iTEnM-2 


a 
à 
БЕ LET 
å | SATO 
азай CRI яв 5; "53331583 
SALL 
2281 спімт 
азас отт 
3313 FRINT "THIS іс а THO-FL 
OTe Sti SIMULATION в E 
9911 SRINT . "THE STRATE 
SOAS END TEAM ARE DECIS 
e FORS TT 
2015 SAINT AT 11,2; U PRESS ANY K 
те TO BEGIN-" 
323 IF INKEYT$="" THEN SOTO 3920 
277 LS 
за SAINT "WHICH LEVEL DQ VIU N 
NTO” 
1 SRINT ук ON SRS oo VESTA 
P 


мам Ш pagi тир Ч 


Is this the smort-ass computer programmer уои were telling Mum about? 
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TS2068/SPECTRUM 


BUILD A SPECTRUM ROMSWITCH IN YOUR TS2068 _ 


by Gary Lessenberry 


I recently purchased some Spectrum ROMs with between these ROMs because clearance is critical 
the hope that I might be able to make my own when you reassemble your computer! You will now, 
ROMSWITCH-type circuit, without having to pay the very gently, bend pin 20 on both ROMs outward until 
high price of those that are commercially available. they are perpendicular to the other pins. You may 

— When I examined the TS2068's circuitry, I realized now solder all of the pins except pin 20. Be careful 
that this was an easier task than I had originally when soldering...allow about 30 seconds between the 
assumed! All that I needed was the Spectrum ROM, a soldering of each pin so that you won't overheat and 
toggle switch, two feet of insulated wire and two damage your ROMs. To pin 20, of each ROM, you will 
10K chm resistors. solder a piece of wire and one end of a 10K chm 

= To start the project, you first remove. the top resistor. The other end of each 10K ohm resistor 
from your computer by removing screw on the bottom will be soldered to pin 28 (+5VDC). The other end of 
of the case. When you look inside, it will appear as the two wires that you have coming from pin 20 of 
in Figure A. You now remove the Timex ROM (016). То the two ROMs will be soldered to the toggle switch. 
remove it, gently pry it with a small screwdriver or The toggle switch ham three pins On it. Two of these 

— Wnife ingterted between the socket and the ROM. pins are labled "ON". Solder one wire on each of 

With your Timex ROM removed, you place your these two pins. Another wire will be soldered on the 
Spectrum ROM directly aver your Timex ROM with the middle pin of the toggle switch with the other end 
notches in the same direction. There should only be Of that wire going to the circuit board and soldered 
a thin space between the two ROMs and all of their to М1. 


— leads should be touching. Do not have a lot of space 


Figure Å 
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Figure B 


- SPECTRUM КОМ PIGGYBACKED ТО А ТІМЕХ КОМ 
NOTCH 


At this point, you may reinstall your ROM in MODIFICATION SCHEMEMATIC 
it’s socket. A hole must be drilled in the rear of re EET 
your case for the mounting of the toggle switch. 
Once that your toggle switch is installed, you may 
replace the top of your computer. Be careful when 
reinstalling the top of the computer to ensure that 
you have proper clearance and that nothing is 
forced! 

Once your computer is reassembled, you may test 
{t out. You can tell which ROM is selected by the 
printout after intialization. When in Spectrum mode, 
you will get the Sinclair Copyright. When in 2068 
mode, you will get both the Timex and Sinclair Copy- 
rights. 

Sources for Spectrum ROMs: 1. Zebra Systems, 
Inc., 78-06 Jamaica Ave., Woodhaven, NY 11421 (718) 
296-2385} 2. G. Russell Electronics, RD1 Box 539, 
Centre Hall, PA 16828. 


ó 
SPECTRUM 


Wl 


PARTS LIST 
SOURCE & CAT f 

10K OHM RESISTORS RADIO SHACK 271-1335 
SPDT TOGGLE SWITCH RADIO SHACK 275-6725 
SPECTRUM ROM ZEBRA SYSTEMS (no cati 


STRANDED WIRE, 25 GAUGE 


1 
bet 


TS2068 AUTOMATIC EMERGENCY POWER SUPPLY 


by Earl V. Dunnington 


You are playing your favorite adventure gane, TS2068 supplies DC current at a minimum 15 volts 
using your word processor, working with a output with 110 volt AC input. Without a load, it 
spreadsheet, entering files, or programming...and actually tests out at 21 volts. Two 9 volt batteries 
the 110 power voltage drops or momentarily cuts off. wired in series provide 18 volts DC without a load. 
Hours of work lost! Two pairs of batteries connected in parallel provide 

Enter the Automatic Emergency Power Supply (see sufficient amps to hold the program about 5 minutes 
Figure No.1). The circuit works by voltage depending on the type of battery and the number of 
differentials. The external power supply for the accessories attached to the computer. The silicon 


2068 AUTOMATIC EMERGENCY POWER SUPPLY 
2068 AUTOMATIC EMERGENCY POWER SUPPLY 
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PL1 
TO COMPUTER 


POWER JACK Се | 
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1 
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вм С 
BOLT ron P js 
15182 
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EXTERNAL J1 - 
TS1 


POWER SUPPLY 


BLACK 


FIGURE NO. 1 


FIGURE NO. 2 


— silicon diodes also prevent current from flowing 


— from 


— are 


— down, 


—seens), 


—space action. 


ction occurs on the screen. If 


diodes serve twa purposes. They protect the 
batteries from being overcharged and blowing up by 
the current from the computer power supply. The 
out 
of the batteries unless the voltage drops below the 
valtage of the batteries. The switch in the circuit 
ія to prevent the batteries from leaking back into 
the external computer power supply when it is pulled 
the 110 power. The power switch on the 
computer, when turned otf, prevents the batteries 
from discharging by powering the computer when the 
external computer power supply is pulled. 

When the project is completed and the batteries 
installed, turn both switches off. Plug the 
external computer power supply into I1 and plug P1 
inta the power jack of the computer. Then plug the 
external computer power supply into the 110, turn 
SWI on, and then the computer power switch. TO power 
reverse the proceedure. 


Parts List. 


В1,В2,В5,В4 9 volt rechargeable ог non-rechargeable 


batteries 
Ji jack (Radio Shack #274-1363) 
Pt plug (Radio Shack 8274-1567) 
51,32 silicon diodes (Radio Shack 8276-1114) 
SWl switch SPST (Radio Shack #275-624) 
TS1,TS2 Terminal strips (Radio Shack 4574-688) 
9 volt battery snaps (Radio Shack #270-325), 
grommets, wire, project box 


Additional Notes: 


Silicon Diodes are easily damaged by too much 
Heat sink the leads before soldering them. 

Due to the dagers invalved (Hydrogen Gas and 
Sulphuric Acid), I do not advocate the use of car 
storage batteries for emergency power. If you have a 
considerable number of accessories or wigh to extend 
the program protection time, then use three six volt 
latern batteries wired in series instead of the two 
pairs of nine volt batteries. Be sure to locate them 
on an impervious plastic tray, so that any leakage 
will not damage your furniture or floor. 


heat. 


33333333333333333333333333330333333333333 


FIX THAT 2068 SPACE BAR 


by Dick Wagner 


Having experienced a hard-to-use space bar since I 
toak delivery of my 2068 computer a long time ago (it 
I recently decided that I had to stop all other 
activity and fix that space bar trouble. I’m inclined to 
Believe that there are other 2068 computer users with a 
поп-астіоп right end space bar. If I hic the bar any- 
where from the H key to the right end there just was no 
If you have this problem you can test che 
space bar like this со determineif my fix will work on 
your computer- hold the left end of the space bar down 
not more than half the normal travel, quarter is better. 
Then press down on the right end to see if she space саг 
it works then my solu- 
zion is worth trying. 

Some time back I read that 


it was aossible to get 
into the key pad switches by 


Lifting the overlay for the 


xeyboard. By carefully working one corner up with a 
— sharp pointed knife it started to peal. It can be done 
without maring the case or overlay. As it lifted I used 


it wouldn’t stick down again. 


а clean flat tool like a screw driver 
fully withaut stretching the overlay, 
under the part I had 


Care- 
pencil 
keyboard so 
pealed up and 


ta help pry. 
T worked a 

lifted and across the 
Slowly it 


was finally free. It uas layed down sticky side up out 
af the way. This overlay is tough but by taking it easy 
it didn’t stretch out of shape. 
The next step "as to remove the case сор by 
removing the bottom screws. Then the keyboard ribbon 
cable was carefully removed from the bottom socket and 
the bottom half was put aside. Next the screws were ra- 
moved from the underside of the top that held the key- 


T process. 


“dane with the keys down on a flat surface. 


Soard box to the cover. The screws vart kept segregated 
so that the proper ones would be usad for wach assembly 
There is a difference in screw lengths 40 be 
sure they go back in the correct holes. 

Now [ was at the key switch section. By removing 
the screws in the top of the box it was possible to get 
the thing apart. I soon discovered that this was best 
There is a 
thin rubber membrane with a dimple and contact for each 
key. There are also some small holes in this menbrane 
that fit over pins so the membrane can be properly po- 
sitionad on assembly. 


19 


p 77 ГГ 


ME 727 ss sos: 

i ss 

= ا‎ 
TTT MES 


I set the key box upside down so the keys would not 
come out of their sackets, particularly the ENTER, and 
CAPS SHIFT keys chat have the wire equalizers. More on 
this later. An inspection of the space заг construction 
showed it was easy to remove by first removing the 2 
keys to the outside of the space bar arms. I found that 
lang nose pliers could be used to grasp tha arm near the 
hinge point and by twisting the pliers toward the 
opposite arm, the arm twisted enough so the hinge pan 
would be moved away from the hole and the arm lifted to 
de free of the bracket. The plastic arm is quite 
flexible so don’t worry. In fact, this teens to be why 
the space bar doesn’t work property. 

My first thought was to reinforce the Sar itself by 
inserting a stiff piece of plastic into the space bar 


cavity and cementing it in place. This was slightly b«t- 
ter but not worth the trouble. The solution was to cen 
ment a strip of thick paper or 0.923 thick aluminun in 
the spaces under the space bar arms. There is a cavity 
lass than 1/8 inch wide that nicely held these strips. 
Don’t use Krazy Glue because there may be some siliaing 
to do before the glue sets. I found it was easier to put 
the glue on the strips than in the cavities. 


The paper strips can be made from stock such as 
used for Radio Shack blister packs. This stock 
very close to 0.025 inches, which is half way 
1/64 and 1/32 inch. I found that strips about 1/2 inch 
long could be handled nicely. Tweezers help in 
positioning the strips. The purpose of these spacers is 
to force the space bar closer to the contact points and 
compress the rubber buttons а little nore. This effect- 
ively reduces the space bar travel. If spacers are too 
thick there may be continous contact or such little 
travel that the space bar may be accidently tripped. 

After cementing the spacers in place I cleaned 
Cement off the spacers as [ didn’t want the space bar 
stuck to anything. Next the space bar was put іп place 
and the hinges reset by reversa tactics. Tha removed 
keys were placed in their proper sockets. Up-ending the 
keyboard sa the keys could be checkad seemed to be a 
good idea as I didn’t want any reversed keys. I checked 
against a keyboard picture to be sure. 

I mentioned the wire equalizers used on 3 
Should these becone misplaced I found that the back of 
the wire aust be under the loose holding clips and 
against the plastic housing. There is a socket made for 
this position. 

The key switches were cleaned before assembly. A 
radio/TV contact cleaner and cotton QTips were handy for 
this. A dry swab on one end cleaned off the cleaner fron 
all surfaces. DON T spray!,just a little on а swab will 
do it. I also cleaned each carbon button with the damp” 
ened swab and then wiped. Don’t get it on the rubber. 
One set of copper cantacts had a dark mark on зо I 
used a Pink Pearl eraser to rub it and then cleaned 
again. I used a magnifying glass to check for foreign 
particles. 

The parts were assembled in reverse order and 
a couple of screws in place the keys were checked 
proper movement and the 3 larger keys were noving 


is 
measures 
between 


keys. 


it 


wath 
for 
prop- 


arly. Raising the keyhox up made it easier to gat the 
rubber Membrana in place over the pins. Holding the 
sandwitch together and turning it over, screws could be 
inserted. 

The case assembly was made in reverse order. The 
difficult part was getting the wire ribbon back іп the 
socket. Long nose pliers are required for this. I wrap- 
ped several turns of masking tape around each point so 
contact uas at the tips. This helped. I did my best not 
to bend or damage the ribbon. 

Before putting the case screws in place a test was 


run on all keys and in particular that the space bar was 
working right. Once operation was satisfactory, the case 
Screws were installed and the overlay was carefully 
placed over the keyboard. I found that the cutouts are 
зо close fitting that it was best to start at the center 
and lightly work toward the ends. With the ends just in 
the cavity I worked the overlay down, being sure that 
there were no hang-ups. Then by lighty pressing the 
senbrane down everywhere, I was sure it was correct. 
Then I pressed harder all over for final contact. 

For this effort I get a space everytine I press the 
space bar anywhere with any finger. No extra pressure is 


required either. Great! 
Note: there is one step I haven t mentioned and I 
recommend doing it even tho I’m not sure it is hetpful. 


I did a Little filing of the underside of the right hand T 
end of the space bar, from the hinge arm to the end as 
I thought it might be bottoming before contact was made. 
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LEAGUE SCHEDULER 


by Jack L. 


After a friend told me 
scheduling the baseball 
League, and it had taken 
compiete the task, it 
Sinclair 2068. 

What appears to be å random selection 
names in the array tables of the subroutines is 
actually a mathematical selection to insure an 
accurate mixing of teams. This mixing assures that no 
team ends up playing against themselves and at the 
same time allows for an approximately equal number of 
HOME and AWAY games. 


he was responsible for 
games for his son’s Little 
him over 100 hours to 


looked like a job for my Timex 


of team 


How the program works: 


LINE 40: Plays "Take me out to the ball same." 
LINES 50-80: Set TABS based on selection of 
printer to be used. 
TIMEX 752040: TAB=16 for the listing 
12 for length of team names. 5%=40 
dashes. 
FULL SIZED PRINTER: TABS40 tor listing 
and 32 for length of team names. S9=00 
dashes. 
LINES 90-130: Set DATE arrays for 16 dates, 15 
characters long and allows input. 
LINES 140-148: Allows entry of team name and 
centers tor display. 
LINES 150-180: Sets the number of teams, makes 
sure the number is even and between 4 and 14. Allows 


INPUT of team names. Names Can be 12 characters long 
for 752040 and 32 for full sized printer. 


Pressure on the very end of the space bar will now just 
produce space action so maybe it helped. Watch how the 
space bar moves and you can see that the opposite end 
doesn’t go down at all. This is partly due to the 
heavier rubber used for the spring action for the space 
har switches. 
DeLisle 
LINES 200-220: LPRINTS the heading (centered) and 


selects the subroutine based on the number of teams. 
LINES 2000-7290: Match the teams for play and 
assign the "HOME" and "VISITOR" status. 
LINES 7300-7350: Allows a new listing with 
same dates, new dates, or exit from the program. 


the 


Atter typing the listing, GOTO 9000 to SAVE the 
program before running. 

To view the schedules on the screen, you will 
need to change the LPRINT commands in the subroutines 
to PRINT commands. LEAGUE SCHEDULER will schedule up— 
to 14 teams for up to 16 games. I you want a straight 
16 game schedule, simply leave out the references to 
"WEEK 1", "WEEK 2", etc., as well as the references to 
“СО” in the subroutines of the program. 

This program has saved countless hours in 
scheduling of both baseball and football games, 
could easily be adapted for almost any type of 
play. 

The program only gives a 
however, TAB adjustments are made for either a full— 
size printer or a TS2040. You will need to MERGE your 
printer driver software if a full size printer is 


the — 
but 
league 


printed listing, 


used. 

This program is available on cassette for 95.00 
or AERCO disk for $6.00 (and also an IBM version on™ 
disk for @6.00)...for those who don't want to type in 
the listing. LEAGUE SCHEDULER can be adapted to 
schedule more teams and pairings, if so desired. 
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10 REM LEAGUE SCHEDULER ack L. DeLisle 1985 

20 CLS 1 PRINT "THIS PROGRAM ALLOWS YOU TO SCHEDULE UP TO 14 TEAMS FOR A 
LOGAME. 8 WEEK SCHEDULE.": PRINT : PRINT "IF THE NUMBER OF TEAMS IS NOT ANEVEN 
NUMBER, SIMPLY INSERT А ”BYE” TO MAKE THE SCHEDULE COME OUT EVEN.": PRINT АТ 


18.01 "PRESS ANY KEY TO CONTINUE": PAUSE O1 

40 BEEP .5.01! DEEP .25,12: BEEP .25.9: BEEP .22.71 BEEP .25,4: ВЕЕР 1.7: BEEP 
.75.21 BEEP .5,0: BEEP .25.12: ВЕЕР .25.9: BEEP .22.71 BEEP .25,41 BEEP 1,7 

SO CLS : PRINT "SELECT PRINTER FOR OUTPUT: "1 PRINT : PRINT : PRINT “ТжТІМЕХ TS 
-2040"3 PRINT : PRINT "F=FULL SIZE PRINTER": PAUSE O 

60 IF INKEYS="T" OR INKEYS=S"t" THEN LET 2-161 LET Yeti: LET SWüë=w="w—————————— 


70 IF INKEYS=E"F" OR INKEYS$s"f" THEN LET Z=40: LET Y=32; LET 5%ш“------------- 
80 IF INKEYS<>"T" AND INKEY%<>"t" AND INKEYS<>"F" AND INKEY$<>"f" THEN GO TO 


90 DIM D#(16.15) 

100 CLS 1 PRINT "ENTER GAME DATES:": PRINT : PRINT : 

110 FOR Det TO 16: INPUT D$(D): PRINT "DATE; "3D,D%(D): NEXT D 

120 PRINT : PRINT "ALL CORRECT?": PAUSE O 

130 IF INKEYS="N" OR INKEYSS"n" THEN INPUT "What date is wrong?";X: CLS : PRIN 
T "ENTER NEW DATE ":X1: INPUT D#(X): CLS : FOR раі TO 164 PRINT "DATE: ";D.D%(D) 
: NEXT De GO TO 120 

140 CLS : INPUT “ENTER LEAGUE NAME: "SLs 

14% PRINT AT 11, (16-(LEN 1%) /2) ;L$” TAB 123 "CORRECT?": PAUSE О 

148 IF INKEYS="N" OR INKEY$»"n" THEN GO TO 140 

150 CLS : PRINT “How many teams are to be listed?": PRINT : PRINT : INPUT T 

152 IF INT (T/2)<>INT T/2 THEN CLS 1 PRINT AT 11,61 FLASH 1% "NUMBER MUST BE EV 
EN": BEEP .S,-20: PAUSE 120: GO TO 150 

153 IF T<4 THEN CLS : PRINT АТ 11.63 FLASH 13 "NUMBER TOO SMALL": BEEP .5,-20: 
PAUSE 1201 GO TO 150 

154 IF T»14 THEN CLS : PRINT AT 11.6: FLASH 1: "NUMBER TOO LARGE": BEEP .2,-201 
PAUSE 120: GO TO 150 

15% PRINT T: DIM TS(T.Y)r PAUSE 60 

160 CLS : PRINT "ENTER TEAM NAMES"'': FOR X»1 TO T: INPUT T$(X)1 PRINT "TEAM ": 
X.T%(X): NEXT X 

170 PRINT і PRINT "ALL CORRECT^": PAUSE © 

180 IF INKEY$»"N" OR INKEYS="n" THEN INPUT "What team is wrong? "iN: INPUT "EN 
TER CORRECT NAME: ЭұТ%(М): CLS : FOR X=1 TO T: PRINT "TEAM "iX, T$S(CX 
): NEXT X1 GO TO 170 

190 CLS : LPRINT TAB Z-LEN L$/21L*'" 

200 FOR X=! TO 242: LPRINT "="; NEXT X 

210 LPRINT TAB (Y/4):"HOME TEAM"; TAB (Y+5); "VISITORS" 

220 GO TO txtoo 


2000 LPRINT '"WEEK 1:"'D$(1)' T$(1) TAR 7;7%8(2)”778(2):ТАВ Z;T8(4)' 'D$(Z)' T&CEO i TA 
B Z:T%(1)'T$(4); TAB ZiT$(2) 

2010 LFRINT 

2020 LPRINT 5% 

2030 LPRINT '"WEEK 2:""DS(2)°TS(2)7 TAB Zi T$CZ)' TCI) 1 TAB Zi T8CA) ' " DRS(CA)' T$(22O TA 
B 2;Т%(4) °Т%(2); ТАВ 25; T$(C(1)0"' 

2040 LPRINT 

2050 LPRINT S$ 

2060 LPRINT '"WEEK Zi"'D$(5)' T$(A) ТАВ ZiTS$(2)' T$C12) 1 TAB ZiT$(S)^' DBCS) " T$C12 ETA 
В 717%(4)”7%(5):ТАВ Z:T$(2)" 

2070 LPRINT 

2080 LPRINT 5% 

2090 LPRINT "WEEK 4:"'D$(7)' T$(2) : TAB Z2:T%(1)'T%(4): ТАВ Z;T%(5)”''D%$(8)'T$(1):; TA 
B 2:7%(2)77%Х(2);ТАВ ZiT$(4) 

2100 LPRINT 

2110 LPRINT S$ 

2120 LPRINT ”“МЕЕК 5:"'D$(9)' T$(CZ)iTAB ZiT$(2)' T$(4) 3 TAB ZiT9(1)' 'D$C1O)' TSCA iT 
AB ZiT$(20'T9$(1); TAB 2:;7%(2) 

2150 LPRINT 

2140 LPRINT S$ 

2150 LPRINT "WEEK 5:"'D%(11)'T%(2): TAB Z;T$(A)' TSCZ) TAB 2;:7%(1) ''°0%(12) °7%04); 
TAB ZiíiT%(1)'T%(2): TAB 2:7% (29 

2160 LPRINT 

2170 LFRINT 5% 
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2180 LPRINT '"WEEK 71"'D$(12)' T&(1) {ТАВ ZiT%(2)'T%(35) TAB Z4 T(AJ''DSCIA)' T$CZO 1 
TAB Z T$(1)' TS$(4) 1TAB 2;7%(2) 

2190 LPRINT 

2200 LPRINT S$ 

2710 LPRINT '"WEEK 8:"'D$(12)'T$(4) 1 TAB Zi1TS(2)' T$C1)4; TAB Z4 T8(Z)''DSC18)' T$C1)014 
TAB 717%(4)77%(221ТАВ 117912)" 

2220 GO TO 7300 

3000 LPRINT '"WEEK 1:"'D$(10' T$C(1) 1 TAB Z:T%(2)'T$(2): TAB ZiT9S(A)' T$(2) ; TAB Z;T$( 
5)''D$(2)' T$(S) ; TAB Zi: TS$(A)' T$C12) ; TAB Z;T%(6)'T%$(2);: TAB Z;T%(2)' 

3010 LPRINT 

3020 LPRINT 5% 

3030 LPRINT '"WEEK 2:"'D$(Z)'TS$(Z)iTAB Z:T%(1)'T%(2):TAB 2:7%(5)”Т% (6); TAB Z; T%$( 
4)'*DS$(4)' T8(2) TAB Z;:T%(6)'T%(4) (TAB 2; Т%(1)'79%(5) TAB 2:7%(5)' 

3040 LPRINT 

5050 LPRINT 5% 

3060 LPRINT '"WEEK Zi"'D$(5)'T%(1): TAB 747%(7)07798(0);ТАВ 72:7%(3)”7%8(4); ТАВ 2; ТЯ( 
2)'*D8(5)' T$(Z2 TAB ZiTS(2)”TS(4);TAB 717%(7)” Т6(1); ТАБ Z;T%(6)” 

5070 LPRINT 

3080 LPRINT 5% 

3090 LPRINT ” "WEEK 4:"'D$(7)'T$(S): TAB Z:iT$(6)'T%(1); TAB Z: T$(2)' T$(2); TAB ZiT% 
4)''D$(B)' TSC(1) : TAB 2:74(4)”7%Х(5);ТАВ Z;:T%(2)'T$(6): TAB ZiTS(2)" 

3100 LPRINT 

5110 LPRINT 5% 

3120 LPRINT '"WEEK %:"”08(9)7Т74(6):ТАВ Z:T%(2)'T%(2);: TAB Z:T%(4)'T%(S):TAB 7:78 
127 "0%(10)77%4(2):ТАВ 7:76(5)77%(2):ТАВ 7;7%Х(1)”7% (4); TAB 2; Т%(5)' 

3130 LPRINT 

5140 LPRINT 5% 

5150 LPRINT '"WEEK 6:"'D$(11)'T%(4):TAB 2:79(2)27 78 (0):ТАВ Z; T$(50' T8(2) ; TAB 2;Т7% 
(1) °'°0%(12) °Т%(5):ТАВ 2:7%8(1)778 (22; TAB Zi4TS(2)' T$CA); TAB. 2; Т%(5)' 

3160 LPRINT 

3170 LPRINT SS 

3180 LPRINT '"WEEK 7:"'D%*(12)'T%(2#): TAB ZiTS(2)"TS(4) {ТАВ 2:Т%(6) °Т%(1); TAB 2:7% 
CS)! "D$(14) °Т%(1) I TAB Z:T%(4)'T%(S):TAB Z; T$CZO' T$CO) 1TAB Z;T9(2)" 

3190 LPRINT 

3200 LPRINT S$ 

3210 LPRINT '"WEEK 8:"'D$(19)' T$) (TAB 2;79%(5) "TS(Z) 3 TAB Z4; T$CA)' T$(2) ; ТАВ Z; T$ 
(1)? D$(16)' T8C5) : TAB 2:7%(4)77% (6) (TAB Z;T%(1)'T%(2) (TAB 2; Т%(5)' 

3220 GO TO 7200 

4000 LPRINT '"WEEK 1:"'D$(1)' T$C1)2 1 TAB. Z: T9(22' T$CZ) ; TAB 21T$(4)' T8(C2D 41 TAB 2;TS8( 
&) "TB(7) i TAB Z:T%(8)”'D%$(2)'T%(6):TAB Zi T$) THIS): TAB. Zi T$(7) ' T8C2)2 3 TAB 2; ТФ ( 

4)' T$C12 :TAB 2:74 000” 

4010 LPRINT 

4020 LFRINT S$ 

4030 LPRINT '"WEEK 2:"'D%(2)'T$(#): TAB. Zi TSCA)' T$CIO : TAB 2:7%(8)°7%(7):ТАВ 2:7%( 
Z)' TA(2) {ТАВ Zi T$(652^ ^7 DSCAD)^ Т%8(2):ТАВ Zi T8CG)' TS(UZ) TAB ZiTS(2)  T$(1); TAB 2; Т%‹ 

$)'T$(8) : TAB 2:7%(4) 7 

4040 LPRINT 

4050 LPRINT S$ 

4050 LPRINT "WEEK Z:"'D$(S)' T8721 TAB 2:7%(1)779(4); TAB Z:T%(6)” 'T$(2Z); TAB 2:75 
8) "Т%(5):ТАВ Zi T8(2) ^D8(6)/ T$(C); TAB Z; Т9%(5)°7%(8); ТАВ Z:T$%$(S)'T$(4):TAB Z:T$( 

1)' T4(6) 1 TAB 72:7%(70” 

4070 LFRINT 

4080 LFRINT S$ 

4090 LPRINT '"WEEK 4:"'D$(7)' T(4) :TAB Z:T%(7)'T$%(&): TAB. 2;Т7%(1)” T$(CED ТАВ 2:7%( 
2)' TS$(Z): TAB Zi T$(2)''DS(8)' T&(E) TAB Zi T$(65)' T8C7) 1 TAB Zi T$(8)' TC2) ; TAB ZiT8( 

4)' T$C12 1 TAB. Z:T%$(2)' 

4100 LFRINT 

4110 LFRINT S$ 

4120 LPRINT ’ "WEEK Si"'D$(9)' T&8(CO 1TÀB Z;T%(4)'T$(1): TAB ZiTS(IZ)"TS(SISTAB Z:T8( 
7)°Т%(6) : TAB Zi T$ (8) ^ "DS(10) "TB(7) : TAB Z;:T$(2)'T%(2);: TAB. Z;T%(6)'T$(1): ТАВ 
(8) °Т%(9):ТАВ 2:7%(40” 

4120 LPRINT 

4140 LFRINT S$ 

4150 LPRINT^^"WEEK 5: "D$CL1)^ TS$CIO : TAB. Z:T$(S)'T$(8):TAB 2:7%(4)77Я(7); ТАБ 2;7% 
(2)%ТФ(2):ТАВ ZiT$(5)''DS(12)? T& (CO STAB 2:78(8)77%(50:ТАВ Zi T$ (C22 TS(4) 4 TAB ZiT 

$(6)'T$(GOZD (TAB Zi T$C1O" 

4160 LPRINT 

4170 LFRINT 5% 

4180 LFRINT '"WEEK 7:"'D$(1Z)' T$(4) i TAB. Zi T8C12' T8CO) 1: TAB Z;T$(7)'T%(8):TAB ZTS 
(S) T& (22; TAB. Zi TO) * DSC14)^ TS(S) TAB. Zi T8(20)^ T&CZO2: TAB Zi T$(Z)2' T$(5) i TAB 2:7 

$C1)'T$OD I TAB Zi T$ C7)" 

4190 LPRINT 

4200 LFRINT S$ 

4210 LFRINT '"WEEK 8:"'D$(19)' T8(4) 1 TAB Zi T&8(Z)' TMO) TAB 2; 7%(1)'°7%(8); TAB. 2:7% 
(7)'T%(6) 3 TAB. 7:7%(5):7 DSC16) ' ТЯ(7):ТАВ Zi TOS) °Т%(8) TAB Z3 T8CG2 ' TS(CZEO ; TAB 2:7 

%(1)”Т%8(491ТАВ 7:7% СО” 

4220 GO TO 7200 

%000 LFRINT '"WEEK 1:"'D$(1)' T&(12 : TAB Zi T8(2)! T$CÓ1TAB Z;T%(4)'T%(S); TAB 2:78 
6)”T%(7): TAB Zi TS(B) 776(9): TAB 2i1T$((100" 

5010 LPRINT 'D$(O2)'T$UO7D I TAB Zi TSI) T5CI12;3 TAB. Zi T$(60' T8(ZO : TAB. Zi T$(3)' TSCZO 1T 
АВ ZiT$(10)' T$ (8); TAB 2:7% (40? 

5020 LPRINT 

5030 LPRINT S$ 

5040 LPRINT "WEEK Z2:"'D$(Z)' T$(42 1 TAB. 7:79%(5)”78(9):ТАВ Zi T9 (B)! T$(10) : ТАВ 2:75 
(10! T&(Z25TAB Zi T$) T$CAS) 1 TAB 2:7%(79” 

5050 LPRINT 'D$(4)'T$(9) 1TAB ZiT8CI)' T$(CE):TAB Z:T$(2)'T$(4): TAB Zi T$4(72' T$ C080 1T 
AB 2:7%(4)"7%(10):ТАВ Z:TS#(2)? 

5050 LPRINT 

2070 LPRINT S$ 
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%080 LPRINT '"WEEK 5: "°0%(5)'°7%(10):ТАВ Z;T$(7)' T$(C6) TAB Z:T%(2)'T$(8):TAB Z;T$ 
(5)'T%(4): TAB 2:7%(1)” T8CED) i TAB 7:7%(9)” 
5090 LPRINT 'DS$(5)'T$(2) : TAB 2:7%(8)” T$CA) 1 ТАВ Zi TS(1D) "TS(7) TAB Z;T$(2)' T$(CÓD : 
TAB Z1T$9(9)'T$CID)1TAB 217% 000” 
5100 LPRINT 
$110 LPRINT S$ 
5120 LPRINT '"WEEK 4:"'D$(7)'T$(&): ТАВ Z|1T$(4)' T$C7) TAB Zi TS$(9)' T$CI) TAB 7:7%( 
S)'T$(1O0) 1TAB 2:7%(5) °Т%(2) {ТАВ ZiTS(8)" 
қ120 LPRINT "р%(8)”17%(2):ТАВ ZiT$(9)' T8) 5 TAB Z:T%(1)'T%(6) 3 TAB Z4 T8C1OD)' T8(2D 1 
TAB ZiT$(4)* T&(7) (TAB 717%(5)” 
5140 LPRINT 
5150 LPRINT S$ 
5150 LPRINT '"WEEK fSi"'D$(9)'T$(8) 17AB ZiTS(10) "TØ(2) 1 TAB 7;7%(5)”7%8(9); TAB 2:79 
(4)' T8C121TAB 7:Т%(7)” TSCZO 41 TAB ZiT$(O)" 
5170 LPRINT 'D$(10)' T&(4) 1TAB Z:;:T%(2)”T%(1O): TAB 2:7%(9) °Т%(2)  TOB Z3TB(1) 7 T$(6) 
TTAB 2:7%(5)77%(8)%ТАВ 2:7%(7)' | 
5185 LPRINT 
5190 LPRINT 5% 
Z200 LPRINT "WEEK 6: "D$(110'T$(6):TAB ZiT$(1)' T&CA) TAB Z:T%(8)'T%*(2):TAB 2:7% 
(7) *TØ(GISTAB Z1T98(2)' T$C(10) STAB Z;T$(5)? 
2210 LPRINT 'D$(12)'T$(B)1TAB ZiT$(9)' T$(7) 1TAB ZiT$(&6)'T%$(Š) 1 TAB Z:iT$(4)”T%$0(1); 
TAB ZiT$(10)' T8 (Z2) 3 TAB 2;Т%(), 
5220 LPRINT 
$220 LPRINT S$ 
5240 LFRINT '"WEEK 7:"'D$(12)' T&CZ)iTAB Z;:T%(S)'T%(2): TAB 2:Т%(10)'°ТФ(1); TAB 7:7 
BCA)? T$ C7) 1TAB Z;T$(4)'T$(6): TAB 7:7%(8)” 
1220 LFRINT 'D$(14)'T8(2)1TAB ZiT$(8G)' T$(9) STAB 7:7%(9)”7%8(73;ТАВ ZiT$CIOD)' TS (I) 
:TAB 7:7%(8)”7Т%8(1):ТАВ 2:7%(4)' 
S260 ШЕКІМТ 
5270 ШРКІМТ S$ 
5280 LFRINT '"WEEK Br"”D%1415)”T%$(1O): TAB 7:7%(4)77%84 (2); TAB 2:7%(1)”Т%(8):; TAB 2:7 
Ф(5)'°ТФ(2) ТАВ 7;Т6(7)”7%8 (9); TAB 7:7%(6)” 
5290 LPRINT ”П%(16)77%(9): TAB 2:7%(7)” T$(B) TAB 7:7%(2)”7%4(4); TAB 72;74(6)77%(%); 
TAB 2;7%(1)'°7%(5);: ТАВ 2; Т%(10)° 
5500 GO TO 7300 
6000 LPRINT * "WEEK 1:"'0$(10'T$(C1) TAB Z:T34(2)'T%(2): TAB 2:7%(42776(5); ТАВ 2;Т%( 
6)'T%(7): TAB ZiT$(BD) T$) : TAB. Zi T$CIOD'TS(C112 1 TAB 2; Т%(12)' 
6010 LPRINT 'D%$(2)”T$(4): TAB ZiT8(5)' T&CG) (TAB Z:T%(2)'T%(12); TAB 2:7%(22778(99: 
TAB ZiT$(11)' TCI) : TAB. 2:7%4(7)77%(10):ТОВ 2:7%(8)' 
6020 LPRINT 
6030 LPRINT 5% 
6040 LFRINT '"WEEK Z2:"'D$(Z)'T$(9)»)1TAB Z:T%4(2)'T%(1): TAB Z&TS(10)' T&C11) ТАВ Z; T 
$OA)' T&(CE) TAB Z:T%(12)'T$(8);:TAB 7;7%(2277%8 (6): TAB 217807)" 
6050 LFRINT 'D$(4)' T$ 7 TAB ZiT$(12)' T8C(CE) STAB Z2iT$(B)' T$(9) ТАВ 7; Т%(2)°7%(10) 
:ТАВ 2:7%(4)7Т%(11);ТАВ Zi: TSC 60° T$C12 : TAB 25173502)" 
6060 LFRINT 
6070 LPRINT S$ 
6080 LFRINT '"WEEK Z:"'D$(Z)' T&C112 1TAB ZiT$(B)' T$(9) 1 TAB ZiTS$C(7)' T$C1): TAB 1:78 
(S)' Т%(6): ТАБ ZiT&(OZO' T$CYO) 4 TAB 2:7%(12277%(2); TAB ZiT8(4)" 
5090 LFRINT 'D$(6)' T$(10) :TAB Zi ТФ (5) °ТЪ(11):ТАВ Z:T%(1)'T$(S): TAB ZiT$(8D)' T$(C1Z 
): TAB ZiT$(Q2)' T$ (7) STAB Zi T$(A)' T8(9) TAB Z:T%(S)”' 
6100 LFRINT 
6110 LFRINT 5% 
6120 LFRINT '"WEEK 4:"'D$0(7)' T$(E) : TAB. Z:;:T%(7)'T%(4): TAB Zi T$(CGB12)' T$C10) ; TAB 
BUD) "TS(LI STAB Zi T8(9)" T$(G) TAB 2; ТЪ(8) TD): TAB Zi1T8C11)"7 
6120 LPRINT 'D$(8)'T$(9) :1TAB ZiT$(C1Z2O)' T$ C10) : TAB 2; Т%(5) °ТФ(11):ТАВ 7:7%8(7277% (5 
)1TAB ZiT$(6)' T&(2) {ТАВ Zi:1T8(Z2)' T&(8) 1TAB ZiTS$(1)^* 
6140 LFRINT 
6150 LFRINT 5% 
6160 LPRINT '"WEEK S:"'D*$(9)'T$(5) TAB Zi: T$C4G12' T&(UZ2 : TAB Zi T8(11) ` T$(B) ; TAB. 2{Т% 
(12) °ТФ(5) : TAB 7;7%4(5): T$ (4) 1TAB. Zi T8(9S) ' T$ C7) ; TAB Zi T8C10)0^* 
6170 LPRINT ^D$(10)' T$CI) STAB Zi T8C10)  T8C9) : TAB. Zi T$ (B)' T$CIO): TAB ZiT$(A)' T&(Z) 
ТАВ 7:7%(7)77%(5):ТАВ 2;7Т7%(110778 (120: TAB Z; T%(6)? 
6180 LFRINT 
9190 LPRINT 58 
6200 LPRINT * "WEEK &6:"”"D$(11)'T$(8): TAB Z:T%(4)'T$(7): TAB 7:7%(5)7 7% (4): TAB 7:7% 
(9)'T%(11): TAB Zi TSC1O0) ' Т8(12):ТАВ Zi TS$CIO' TSCEO S TAB ZiTS$(2)" 
6210 LPRINT 'D$(12)0'T$(5):TAB Z:T%(5S)”'T%(2):;: TAB ZiT%(1)'T%(12): TAB 2:Т%(11)°7%(04 
):ТАВ 2:7%(2)7 T$(B) TAB Zi T8(7)! T8C10) 1TAB 2;7%(9)” 
6220 LPRINT 
6230 LPRINT 5% 
6240 LPRINT '"WEEK 7: ""DØ(L3) "TS(I)Y:TAB 2;:7%(12)°7%(5) STAB ZiT$CA)' T$CBD) : TAB ZIT 
Ф(10)'ТФ(2) TAB Z:T%(6)'T%(11) (TAB Z:T%(9)”'T%(7):TAB 237801)" 
6250 LPRINT 'D$(14)'T$(4)1TAB Z:iT%9(11)'T%(%) (TAB 717%(9)”7%8(7091ТАВ ZiT%(6)'T%(10O 
):TAB Zi T$C1)* T$C12) 1 TAB ZiTS(S) "TS(DIITAB 2;7%(8)' 
6260 LPRINT 
6270 LPRINT S$ 
6280 LPRINT ’ "WEEK 8: "'0%(15) °Т%(2) {ТАВ Z:T%(9)'T%(12) 1 TAB Zi4T$(7)' TC1) ; TAB 7:7 
%(3)”T%(B): TAB 2;Т% (5) °Т9%(4) [TAB ZiT%(1O)'T%(&6) i TAB 2:74 (110? 
6290 LPRINT 'D$(16)'T$(S)1TAB Z:T%W%(1)”'T%(8)(TAB Z:iT%(11)'T%(4): TAB ZiT$(ZO'T$(7)D 
1TAB 7;Т7%(9)”Т%(2);ТАВ Z:T%(6)'T%(12): TAB 2; ТФ(10)' 
6300 GO TO 7300 
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7000 LPRINT '"WEEK 1:"'"D%(1)”'T%(1) (TAB Z1T$(2)' T8 (3) ; TAB 7:7%(4)”Т8(5); TAB Z;T$( 
6) ”TS(7) 3 TAB Z1 T8(8)' T$ (32; TAB Z;T%(10O)”'T%(11): TAB Z4 T8C12)' T$(12) ; TAB 2; T$(14) 
7010 LPRINT 'D$(2)0'T$(ED4 TAB ZiT$(5)' T8072 1 TAB Zi T$C10)' T8(C2) 4 ТАВ Zi T$C11)' T$ CÓ 
«TAB Zi T9(12' T8C14) STAB Zí(T%(4)'T%$(6) 3 TAB Zi T$ (030 T$(09) STAB 2; Т%(12)'° 

7020 LPRINT 

7030 LPRINT S$ 

7040 LPRINT '" WEEK 2:i"'D$(20'T$(7)1TAB 72:7%(6)"7%(8):ТАВ Zi T$(9)* T$C1) ; TAB. 7:7%( 
12)? TS(OA2 1 TAB. Z1 T8202! T8C120 4 TAB. Z;:T%(2)'T$(5): TAB ZiT€$(C14)' T8C11) 3 TAB. 2;7%(10) 
7050 LPRINT ”DS(4) "TS(1Z);TAB ZiTS$(A)' T$C(120; ТАВ Z:T$(2)'T%(14) (TAB Z;T$C7D)' T&(9 
):TAB Zi T*(5)"' T$(8) TAB Z;T$C11)' T$C10) 1 TAB Zi T$ 1)" T8(202 : TAB Zi; T& (00 

7060 LPRINT 

7070 LPRINT S$ 

7080 LPRINT '"WEEK 2:"'D$(T0'T$(2) 1 TAB. Zi T8(9)' T$CLO 1 TAB Z:T$%$(14)'T%(8);:TAB ZiT$ 
(122^ T8C(10) : TAB. 7:78(5)7 T&CI2)2 : TAB. 2:Т%(7) °Т%(5) : ТАВ Zi T9 (11)! T$CA) 13TAB. Zi1T$ (65) 
7090 LPRINT 'D$(&)'T$(LZ)iTAB ZiT$(10)' T&CE) 1TAB. Z;T$(12)'T%(9); TAB ZiTS$CZ)' THES 
)1TAB Zi T$(07)' T$CI) : TAB. Zi Т%(6) °' T$CA) y TAB 7:79(8)°Т%(14) 1 TAB Z:T%(11)” 

7100 LPRINT 

7110 LPRINT S$ 

7120 LPRINT '"WEEK 4: ""DS(7)”TS(&):iTAB ZíiT%(8)'T$(9); ТАВ Z;T%(7)'”T$(4); TAB 7:7%( 
10)°Т%(1) 1 TAB Zi T$C1127 T8CZ2 1 TAB. Z;T%(14)'T$(15):TAB Za T$(3) ' T8CIZ) 7 TAB Z; T8 (2) 
7130- LPRINT ^D$(8)'TS$(Z):TAB ZiT$(1)' T$(10) ; TAB. Z1T$CO) ' T3 CE) 1 TAB Z:T$(8)'T%(12) 
TAB 7:7%(12)7Т68(11);ТАВ Zi T3(9)' T$(14) 3 TAB. 2;7%(2)77%(7);ТАВ 7:7%(40” 

7140 LPRINT 

7150 LPRINT 5% 

7160 LPRINT "WEEK S:"'D$(9)'T&(Z)iTAB 2:7%(12)” T8011) TAB Zi T$CIZ)' T$C7) ; TAB 21 
Т4(1):7%(6) (ТАБ Zi T$CIA)? T8905) 1 TAB. Zi T8U22' T8C9) 3 TAB. Z; T8CA) ' T$(10) 1 TAB Z:T%(8) 


7170 LPRINT `D%(10O)'T$%(4):TAB Zi T8C110^ T$C142 TAB ZiTS(8)"TS(6) TAB ZíiT$(2)”"”T%(5 
):TAB Zi T$(9)' T&C10) 1 TAB. Z:T%(12)'T%(7)i TAB. Z;:T%(2)'T$(1): TAB Zi T$ 2D" 
7180 LPRINT 
7190 LPRINT 5% 
7200 LPRINT '"WEEK 61"'D$(110' T$(9? TAB ZiT$(14)!' T&CA) 1 TAB. Zi T$CIO' TSCII) TAB 2: 
1%(5)”Т7%(8);ТАВ Z:T%(12)'T%(7): TAB Zi T8CAZO2' TS$O20 ; TAB Zi T8 C10) ' T$C5) i TAB Zi TS C3 
>” 

7210 LPRINT 'D$(12)'T$(1O): TAB Z:T$(2)'T%(6)i TAB Zi T$C11)' TSC122 STAB ZiT$(14)' T$ 
(12)1TAB 7;7%(4)776(2):ТАВ Zi T$(8) TUO : TAB Z1T9$(9)' T8(E) TAB ZiTSCZO" 

220 LPRINT 

230 LPRINT S$ 

7240 LPRINT '"WEEK 7:"'D$(1Z)' T$C11) TAB ZiT$(07)' T8(20 1 ТАВ Zi TSCTD) TS8CIZO : TAB Z: 
T$(9)' T$C14) ; TAB Zi T8(10) TS) 1 TAB. Zi T8(E)' T&CIZO 4 TAB 1:7%(6) °Т%(8) 1 TAB ZiT$(1 
>” 

250 LPRINT 'D$(14)'T&(14) ; TAB ZiT8C1Z22^ T$C10) {ТАВ Zi T9 (9)' T8(22 STAB Z: TSCIO' TSC 
5)1TAB ZiTS$(S)' T$(B) ; ТАВ ZiT$(7) ' T$(4) (TAB Z:T%(2)'T%(12); TAB 2:78 (110” 


7260 LFRINT 
7270 LPRINT 5% 

280 LPRINT '"WEEK B1"'D$(19)' T& 12) 1TAB Z:T%(9)'T*$(4):TñB 117%(14)°Т%(5) : ТАВ 7: 
T$48)' TS(1123 TAB Z:T$(2)'TS$S(1):TAB 2:7%(5) °Т9(10) 1 TAB. Zi T8C7)' TSC122 1 TAB TITS“ 
>? 

7290 LPRINT 'D%(16)'T$(10):TAB Z;T%(11)'T$(3):; TAB Z;:T%(12)'T%(ó) TAB 72:7%(7)77%( 

12): TAB. 7;Т7%(1)779(2):ТАВ 7;78(4)77%8(9):ТАВ Zi T$(80 ' T8C14) ; TAB 2:7%(5)” 

7300 LPRINT S$: CLS : PRINT "DQ YOU WISH TO SCHEDULE ANY MOREGAMES AT THIS TIME? 
": PAUSE О 

7310 IF INKEYS="N" OR INKEYS$x"n" THEN CLS : PRINT FLASH 1:АТ 11,0:"It was a pi 
easure to serve you!": STOP 

7220 CLS 1 PRINT "SAME GAME DATES?": PAUSE O 

7330 IF INKEYS="Y" OR INKEYSs"y," THEN GO TO 140 

7240 GO TO 90 

7350 STOP 

9000 SAVE "SCHEDULER" LINE 10 
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POLYNOMIAL CURVE FIT PROGRAM 


by "Stan Lemke 


INTRODUCTION 


The following Polynomial Curve Fit Program for 
the Timex Sinclair TS2068 is a powerful mathematical 
tool for students, engineers, and everyone 
interested in or involved with mathematics. 

You can INPUT X-Y coordinate data and plot the 
points, or you can have the PCF (Polynomial Curve 
Fit Program) plot the data with straight line 
segments connecting the points, you can have the PCF 
connect the points with a fiece-wise continuous 
(spline) curve, or the PCF can curve fit up to a 
10th order polynomial to the data and plot it with 
the data points. You can view the polynomial 
equation used in the curve fit (note: the entire 
equation and not just the polynomial coefficients!). 
You can compare the input data values with the curve 
fit values at the same "X" coordinate points. You 
can evaluate the polynomial at "X* coordinate points 
beyond that used to define the curve. 

Polynomial curve fit analysis is only one 
function available to the PCF. Instead of inputting 
coordinate data, you can input an entire equation 
and have the PCF evaluate and plot it! This equation 
can be a polynomial, a trigonometric function, loga- 
rithmic function, or a combination of all of these. 


HOW TO USE THE PROGRAM 


The Polynomial 
load and auto-run. 
Z modes. Press 1 if 
data. Press 2 if 


Curve Fit (PCF) 
The PCF will give a selection of 
you wish to enter X-Y coordinate 
you wish to input an equation. 
After the data has been entered tor tne 
equation has been entered), you will be prompted 
with a menu containing 6 choices. Press the number 


Program will 


key (1 to 6) associated with the desired option. 
Press 1 -- Display the Polynomial (equation) 
2 -~ Compare the Input/Curve data 
5 -- Evaluate Curve at "Xx" 
4 -- Plot Input/Curve data 
5 -- Next Case 
& -- End Job 
Press 1 to display the Polynomial Curve Fit 
equation (If you entered X-Y coordinate data), or 
the equation you input if that was your choice. 
Press 2 to compare and display the input X-Y 
coordinate data and the curve #it (or input) 
equation data. Note: if you input an equation, you 
also select a minimum and maximum "X" over which to 


evaluate the equation. The PCF selects three in- 


termediate points for a total of five points to use 
as input data points. 
Press 3 to evaluate the polynomial {or input) 


^X" values. 
the X-Y coordinate data and 
another menu containing 


equation at user-defined 

Press 4 to plot 
curves. You will be given 
five choices. 


Press і -- Plot Input Data Only 

2 -- Straight Line Segnents 

3 -- Curves Line Segments (Spline Curve) 

4 -- Polynomial Curve Fit (or Input Equation) 

% -- No plots, Return 

Simply press the number key associated with the 

desired option. If you select to plot a curve, you 
will be prompted with the current page title, 
sub-title, x-axis title, and y-axis titles. Type in 
the desired titie, or just press ENTER to retain the 
present title. When the page/curve is complete, you 
will be prompte with: COPY? Press "Y° or “N”. The 
page will be displayed until you press a key. If you 


press "Y°, you will get a printer (752040 thermal 


(pA TI 


їнї 
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printer) 
complete, 
last 


over and can select to input X-Y coordinate data, 
input an equation. 
you 
the curve fit function, 


it 


prompted with 
ENTER. 
case. 
limits, 


= i2 
< ASIS 
= amd Zi iun 
"v == Z= in 


COPY of the screen. When the COPY 
or if you pressed anything except ^Y*, 
(plot type) menu will be displayed again. 
Press 5 to start a new case. You will 


is 
the 


start 
or 
However, if in the previous case 
input an equation or have one created in 
then you can return and use 
again by selecting the equation input mode. When 
“Input your equation...", just press 

The PCF will use the old equation in this 
Next you will be asked to define the "X" 
mín. and max. to be evaluated. Type in the 


either 


desired values and press ENTER. 


prampt 
Type 


do 


input 


Press 6 to terminate the job. 


INPUT X-Y COORDINATE DATA 


When you select this option, the PCF will 

you to input the desired curve fit order. 

a number from 1 to 10, and press ENTER. If you 

not wish to have a polynomial fit to your data, 
"о". 


Next, the PCF will ask you how many data points 
you wish to enter. The PCF will allow up to 50 
coordinate pairs, and will prompt you for the number 
of data pairs you indicate. Note: the number of data 
points must be at least 1 greater than the order of 
the polynomial curve fit requested. 


The PCF will begin to curve fit your data when 


the last data point is entered. Å 2nd or Srd order 
polynomial will take only a few seconds to solve. 
Higher order equations will take several minutes! 


When the curve fit is completed, 
the six option menu. 


the PCF will go to 


INPUT AN EGUATION 


When you select this option, the PCF will 
prompt you for an equation. If you have previously 
input an equation, or have one created by the 
curve-tit function, you can select this curve by 


pressing ENTER. 


Otherwise, ¿NPUT your equation by typing in the 


equation as a function of х“ (lower case!!), and 
press ENTER. 
Example 1: Y = 3.3 + x 
Input: 3.5 + x (ENTER) 
Example 2: Y = 2Ж%біп(х/57.5) 
Input: 24SIN(x/57.3) (ENTER) 


You will be prompted for a minimum "x" value 
(evaluate from) and a maximum "x" value (evaluate 
tal. If you input а polynomial equation, or any 


equation where you raise “x" to a power, you cannot 


1 REM Polynomial Curve Fit 
10 REM x£xxxxxxxxxxxxxtxtxtiixkxt 
20 REM by S D Lemka 1984 
2144 White Oak 
Wichita, Ks 657207 
ZO REM XXXXXXXXXXXXXXXXXXXXXXXK 
40 REM 
45 CLEAR 55229: GO SUB 5100 
SQ PAPER 1: BORDER 1: INK 9: C 
LS : FOR i=0 TO 7: POKE USR "a"+ 
i,0: NEXT i: POKE USR "а"+1, 255 
65 LET іх=0: LET num=0: LET a$ 
2104 
70 LET 1е=0: LET х%ж"Х AXIS": 
LET z$="Y AXIS": LET m$="Main Ti 
tle": LET n#="Sub-Title" 
80 DEF FN A(X)=INT (XX1000)/10 
oo 
85 DEF FN b(a,b.cyd,e)=(a-b)/( 
c-d)i(e-d)+d 
90 DEF FN Z(Q,R)=QTR 
100 DIM v(4,201): DIM c(10): DI 
M f(50,10): DIM t(10,50): DIM sat 
10,11) 
105 PRINT AT 5,10; "Polynomial"; 
”3 TAB 7: "Curve Fit Program"; ”5;TA 
B 7; "77777777777777777": GO TO 1 


110 INPUT “Order of polynomial 
(<=10) ? ";norder: IF norder>=0 
AND norder<=10 THEN PRINT АТ 8, 
73 "Polynomial order = ";norder  . 

115 IF norder«O QR norder>=11 T 
HEN PRINT AT 12,9; FLASH 1;"Inv 


alid ""ÜOrder""": PAUSE 120: PRIN 
T AT 12,95" "т GO 
TO 110 

120 INPUT "Number of points on 


the curve (4250)? "inum: IF num» 
anorder+1i AND num<=50 THEN GO T 
0 128 

125 PRINT AT 12,9: FLASH 1;"Inv 
alid ""Number""": PAUSE 120: PRI 
NT AT 12,93" “: G 
Q TO 120 
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function like 
Instead use xk*x. 
use 


use the "arrow" 
values of "x°. 
Sine function, 
not spell it). 


x“2 with negative 
Also, to use the 
the keyboard "SIN" command (do 


FULL SIZE PRINTER MODIFICATION 


The Polynomial Curve Fit Program is written to 


use the TS2040 type printer. However, it is very 
easy to modify the program to use the full size 
printer. 

Step 1: Load the PCF program and press the CAPS 


SHIFT + BREAK keys to break the program. 
Step 2: Type the following lines: 


40 LOAD "* CODE 
3400 RANDOMIZE USR 23296 


Step 3: Save the new PCF program on a new tape, 
and type GOTO 9999 (and press ENTER). 
Step 4: Load a copy of the graphics screen copy 


code supplied with your printer 

TS2068, then save it to the 
following the new PCF program you 
When PCF runs, the first thing that 

be to read this code into memory. 
assume that your printer code is located in RAM at 
location 23296. If it is not located here, 
additional program modifications beyond the scope of 
this documentation is required. 


interface into your 
tape including and 
jugt created. 
it will dø, will 


128 PRINT ”;ТАВ 7; "There are "; 
num; " points.";": 

130 PRINT AT 12,10; "Input Data" 
FOR ізі 
"%У(1,19;" 


INPUT “ X = ? 
Y = ? “"sv(3,id: PRINT TAB 
$:i; TAB 93 "X = ";v(1,i):TAB 22; 
"Y = ";v(Z,i): POKE 23692,51: NE 
XT i: REM NOTE..." ©“ are the 
User Defined Graphics AAA 

140 IF norder>=1 THEN PRINT #0 
ЗАТ 0,10; "Working": GO TO 200 
150 CLS 

160 PRINT AT 7,1;"Select an opt 


TO num: 


ion: Press 1 to 6": PRINT AT 9,3 
;"1 — Display Polynomial €q.": 
PRINT AT 10,2;"2 — Compare Inpu 


t/Curve Data": PRINT AT 11,.2:"Z 


— Evaluate Curve at ""X"" "Ii PR 
INT AT 12,5;"4 -- Plot Input/Cur 
ve Data": PRINT AT 12,5;"5 — Ne 
xt Case": PRINT АТ 14,53;"5 — En 


d Job": PAUSE O: LET isæ=INKEYS: 
IF CODE i%<49 QR CODE i$>54 THEN 

60 TO 160 

161 IF norder=0 AND VAL i$<4 TH 
EN GO TO 160 

165 IF i$z"1" THEN CLS : PRINT 
AT 2,5; "Polynomial Curve Fit";" 
; TAB 9; "Order = "inorder: PRINT 
AT 7,03 "Y = "+e%: GO SUB 3380: G 
О TO 150 

170 IF is="2" THEN GO TO 52 
175 IF i$z"Z" THEN CLS : PRINT 
AT 1,03;"Y = "e$: INPUT "X = "; 
x: LET lemlEN е%/50-2: PRINT AT 


le,03"X = "ix; TAB 15;"Y = "SVAL 
et 
176 IF is="3" THEN PRINT АТ 21 


| 5; FLASH 1;"Press Enter to Cont 
inue”: PAUSE O: PRINT AT 21,53" 
"s IF INK 
EYS<>CHR® 13 THEN GO TO 150 
177 IF i$="3" AND 1аоа20 THEN 
CLS : PRINT AT 1,0;"Y = “+e: LE 
T le=LEN e$/30+2 


These instructions — 


178 


IF i$»"3" THEN INPUT "X a 

“sx: LET lewle-1: PRINT АТ 18,03 
"X = ";x;TAB 18; "У = "SVAL as: б 
D TO 1765 

180 IF і8ш“4" THEN CLS : GO TO 
2000 

185 IF і4ч“5" THEN CLS : GO TO 
105 

190 STOP 

200 REM Begin Curve Fit 

210 GO SUB 3200: LET xl=minx: L 


ET х2=тахх: LET yl=miny: 
maxy: LET dx=x2-x1: LET dysyZ-yl 
: LET s=dy/dx: FOR ізі TO num: L 
ET v(2,i)sv(l,i)-x1: LET v(4,i)= 
vG,i)-yi1—aXv(2,i10: NEXT i: LET 

v (4, num) =O 
220 REH 


LET y2= 


Calculate "F" Matrix 
230 FOR j=1 TO num: FOR i-1 TO 
norder: LET £(j,i)zFN z(v(2,j)/d 
x,i): LET t(i,j)=f(j,i): NEXT i: 

NEXT j 
240 REM Simulataneous Equations 


250 FOR i=1 TO norder: FOR j=1 

TO norder: LET s(i,j)=0: FOR k=l 
TO num: LET s(i,j)=s(i,j)+t(i,k 
)*tf(k.3): NEXT к: NEXT j: NEXT i 


260 REM Calc. Column Constants 


270 FOR i=1 TO norder: 
20: FOR kmi TO num: LET c(i)=C (i 
)*t(i,k)Xv (4, Kk): NEXT k: NEXT i: 

FOR i=1 TO norder: LET s(i,nord 
er+1)=c(i): NEXT i 

280 REM Solve system of Sim. Eq 

290 LET mpi=norder+i: FOR )ж2 T 
O mpi: LET 5(1,1)ш5(1,32/5(1,10: 

NEXT j: FOR i=2 ТО norder: FOR 
h=i TO norder: LET sum=0: LET jm 


LET c(i) 


1=i—1: FOR k=1 TO jmi: LET sum=s 
um*s(h,k)Xs(k,i): NEXT k: LET s( 
h.i)ss(h,i)-sum: NEXT h: LET ip1 


шізі: FOR j=ipl ТО mpl: LET sum= 
Os LET imt=i-1i: FOR к=1 TO iml: 
LET sumssum*s(i,k)is(k,j): NEXT 
k: LET s(i,j)-(s(i,j)-sum)/s(i,i 
yz NEXT j: NEXT i: LET c(norder) 
as (norder,mpli): LET l=norder-l: 
FOR n=1 TO 1: LET sumo: LET i=n 
order-n: LET ірі=1+1: FOR ізірі 
TO norder: LET sumwsum+s(i,j)*c( 
j): NEXT i: LET c(i)2s(i,mpi)—-su 
m: NEXT n: LET c(1)=c (1) +s£dx 
300 REM Calculate Output Matrix 


210 FOR i=1 TO num: LET sum=0: 
FOR ілі TO norder: LET sum=sum+c 
Cj) ЖЕМ z(v(2,i)/dx,j): NEXT j: L 
ET v(4,i)=sum: NEXT i: FOR ізі T 
О num: LET v(2,i)æv(2,i)+xl: LET 

v(4,i)=v(4,i)+yl: NEXT i: GO TO 

345 

370 REM Print Input/Output Data 

25 LET il=1 

330 CLS : PRINT AT 0,03 "X-in 

Ү-іп X-out Y-out": PRINT A 
T 1,033 "7997 777? 77777 

335 FOR ізі! TO num: LET хам (1, 
i): LET v(2,i)=x: LET v(4,i)=VAL 

es: PRINT FN a(v(1,i1)0),; TAB 8;FN 

a(v(3,i) ) ; TAB 165; FN a(v(2,1)); T 
AB 24;ЕМ a(v(4,i)):s IF i=19 OR i 


(pA S TI 


Сшогаіга 
ne Шыгу 


eo 
Se Li 


ill + 
ni 
m 
u 
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=39 THEN LET il=i+1: GO SUB 358 


о: GO TO 350 

340 NEXT i: GO SUB 3380: GO TO 
150 

345 REM PRINT Create Polynomia 
1 


350 LET yl=FN a(yl): LET e$=" " 
350 FOR ізі TO norder: IF FN a(t 
c(i))<>0 THEN LET e$se$+STR$ FN 
atcti))+"xccx" 

370 IF FN a(c(i))<>O AND FN a(x 
1)<>0 THEN LET at=esr"-"+STRS F 
М a(x1) 


380 IF FN a(c(i))<>O THEN LET 
e*=e$+")/"+STR$ FN а (ах) +") ^" +57 


R$ i+" +" 

390 NEXT i: LET e$se$-STR$ yl: 
GO TO 150 

395 REM Scaling Subroutine 


400 DATA .001,.002,.005,.01,.02 
,.05,.1,.2,.3,1,2,5, 10, 20,50, 100 
, 200, 300, 400, 500, 600, 700, 800, 900 
, 1000, 1100, 1200, 1300, 1400, 1500, I 
600, 1700, 1800, 1900, 2000, 2100, 220 
0, 2300, 2400, 2500, 2600, 2700, 2800, 
2900, 3000, 3000, 10000, 20000, 10000 
о 


410 DIM 3(49): RESTORE 400 

420 FOR ізі TO 49: READ s(i): М 
EXT i 

430 IF min=O THEN GO TO 500 
440 LET amin=ABS min: GO SUB 62 
O: IF ііі THEN GO TO 500 

450 IF min<O THEN GO TO 480 
440 REM IF i1=33 OR i1=6 OR il= 
9 OR il=12 OR i115 THEN LET il 
si 1-1 

470 LET mines(ii): GO TO 510 
480 REM IF 12=5 OR i2=6 OR i2= 
9 OR i2=12 OR i2-15 THEN LET i2 
=12+1 

490 LET піпж-4(12): GO TO 310 
300 LET min=0 

510 LET dl=(max-min)/al: LET am 
in=dl: GO SUB 620 

S20 REM IF i2=3 OR i2=6 OR i2= 
9 OR i212 OR i2=1% THEN LET i2 
=i2+1 

550 IF i2>=18 AND 12<ж20 THEN 
LET i2=20 

540 IF i2>=21 AND i2<=25 THEN 
LET i2=25 

550 IF i2»226 AND i2<a230 THEN 
LET і2=50 

560 IF iZ»-31 AND 1i2<=3% THEN 
LET i2=35 

570 IF i25=35 AND i2<=40 THEN 
LET i2-40 

580 IF i2>=41 AND i2<244 THEN 
LET i2246 

590 IF i2«249 THEN LET dl=s(i2 
) 

600 IF ABS min<adl] THEN LET mi 
n=0 

610 RETURN 

620 FOR i=2 TO 49 

630 IF s(i)>amin THEN GO TO 46 
о 

640 NEXT i 

650 LET i=50 

660 LET 12-і: LET іізі-і: RETUR 
N 

1000 PRINT АТ 10,0; "Select an Ор 


tion. Press 1 or 2.": PRINT AT 1 
4,0; "Press 1 to INPUT X and Y 
Data 2 to INPUT an EQUAT 
ION" 
1010 PAUSE O: LET is=INKEYS: IF 
1%$<"1" OR i$>"2" THEN GO TO 101 
° 
1020 PRINT АТ 10,0; TAB 31;" ";АТ 
14,0; TAB 313" "°ТАВ Z1;" ": IF 
1%="1" THEN GO TO 110 
1030 PRINT АТ 10,0; "Input your E 
quation: Y = "s: INPUT "Y = "ig 
$: IF LEN g$<20 THEN LET @$=g$: 
PRINT AT 11,7:e$: LET norder=1: 
LET num=5: INPUT "Evaluate Equa 
tion from X = “sminx: INPUT "Eva 
luate Equation to X = “;maxx: PR 
INT #О АТ 0,12; "WORKING": LET ví 
1,1)=minx: LET v(1,S)=m=maxx: FOR 
i=2 TO 4: LET v(1,i)=minx+i xX (max 
х-тіпх)/5: NEXT i: FOR ізі TO 3: 
LET x=v(1,i): LET v(3,i)=VAL as 
: NEXT i: GO SUB 3200: CLS : GO 
TO 160 
1040 PRINT АТ 11,7;@%: LET norde 
ral: LET num=S: INPUT "Evaluate 
Equation from X = “sminx: INPUT 
"Evaluate Equation to X = "smaxx 
: PRINT %ОҘАТ О, 12; "WORKING": LE 
T vil,l)æminx: LET v(1,S)=maxx: 
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FOR is2 TO 4: LET v(l,i)=minx+i4 
(maxx-minx)/%: NEXT i: FOR ізі T 
0 5: LET хшу(1,1): LET v(3,1i)=VA 
L e$: NEXT i: GO SUB 32001 CLS : 
GO TO 160 
2000 REM Select type of plot 
2010 PRINT AT 7,1;"Select an opt 
ion: Press 1 to 5": PRINT AT 9,3 
3"1 — Plot INPUT data only 


2 — Straight line segments 

= — Curved line segments 

4 — Polynomial Curve Fit 

3 — No plots, RETURN": PAUSE 
Оз LET i$sINKEY$: IF i$<"1" OR i 


$>"S" THEN GO TO 2010 

2020 IF i$z"5" THEN GO TO 150 

2030 IF ism"4" THEN GO TO 3280 

2040 GO SUB 6280 

2050 IF i$-"35" THEN PRINT HO;AT 
0,12; "WORKING": GO SUB 6500 

2060 IF i$="2" THEN GO SUB 7500 

2070 GO SUB 3380: GO TO 150 

3000 CLS : PRINT АТ 2,03 "PAGE TI 

TLE: "+ç FLASH 1;m$ 

3010 INPUT "New Title is: ";t$: 
IF LEN t%<>0 THEN LET m$zts 
3020 PRINT АТ 2,13;TAB 313" "АТ 
2.12;т% 

3030 PRINT АТ 4,0;"SUB TITLE: 

"s FLASH 13n% 

5040 INPUT “New Title is: ";t$*: 


IF LEN t$<>0 THEN LET ns=t4 

3050 PRINT AT 4, 15;ТАВ 313" "АТ 
4,12;п% 

5100 PRINT АТ 6,0; "X-AXIS TITLE: 

"s FLASH 1;x* 

3110 INPUT "New Title is: ";t$: 
IF LEN t$<>0 THEN LET x$»t$ 

3120 PRINT АТ 6,15; TAB 51;" "AT 
by 153x% 

3130 PRINT АТ 8,0; "Y-AXIS TITLE: 

"s FLASH 1;2% 

3140 INPUT "New Title is: ":t$: 
IF LEN t$<>0 THEN LET z$-t* 

3150 PRINT AT 8,15;TAB 31:" "SAT 
8,15;2% 

510 PRINT АТ 12,12; "WORKING": R 

ETURN 

3200 REH Plot Subroutine 

3210 LET maxx=v(1,1): LET minx=v 
(1,1): LET maxy=v(3,1): LET miny 

av (3,1): FOR ісі TO num 

3230 IF v(i,i)>maxx THEN LET ma 
хх=м (1,1) 

3240 IF м(5,і) >maxy THEN LET ma 
xy=v (Z, i) 

3250 IF v(1,i)<minx THEN LET mi 
nx=v (1,1) 

3260 IF v(S,i)<miny THEN LET mi 
nyæv (S, 1) 

3270 NEXT i: RETURN 

3280 GO SUB 3000: IF norder=0 TH 
EN GO SUB 3200 

5285 LET minzminx: LET max=maxx: 
LET al=20: GO SUB 400: LET x0=m 
іп: LET dx=dl: LET xn=0: IF x0<0 
THEN LET xnz-xO/dx 

2290 LET min=miny: LET max=maxy: 
LET al=10: GO SUB 400: LET y0am 
in: LET dyzdl: LET упао: IF yO«O 
THEN LET yn=-y0/dy 

3300 IF xn>20 THEN (ЕТ xn=20 
3310 IF yn>10 THEN LET yn=1O 
3320 CLS : LET xom44: LET yo=28: 
PLOT xo*xnt10,yo: DRAW 0,100: F 
OR izO TO 10: PLOT xo-2-*xnt10,yo 


"wi 


+10%i: DRAW 4,0: NEXT i: PLOT хо 
, yo+ynkl0: DRAW 200,0: FOR ізо T 
О 20: PLOT xo+10%i,yo-Z2+ynx10: D 
RAW 0,4: NEXT i 
3325 FOR i=0 TO 200 STEP 5: PLOT 
хо+і, уо: PLOT xo+i,yo+20: PLOT 
xo+i,yo+40: PLOT xo+i,yo+60: PLO 
T xo+i,yo+80: PLOT xo-*i,yotlOO: 
NEXT i: FOR i=O TO 100 STEP 5: P 
LOT xo,yoti: PLOT хо+40, уо+і: PL 
OT xo+80,yo+i: PLOT xo+120, yori: 
PLOT xo+160,yo+i: PLOT хо+200, у 
oti: NEXT i 
3327 LET lz=LEN z$: IF 12210 THE 
N LET 1z=1O 
3328 LET top=11-INT (12/2) 
3330 PRINT AT 2,(13-LEN m$/2)7m% 
АТ 3, (15-LEN п%/22;п%: LET y$=z 
$: FOR із! TO lz: PRINT АТ top+i 
;,Osy*(i): NEXT i: FOR іші TO б: 
LET v$=STR$ (2X(i-io)Xdy-yO): LET 
1v=LEN v$: FOR h=1 TO lv: LET a 
xm$6-8X1v-8tih: LET ch=8% (CODE vs 
(h)-32)+156i6: FOR oO TO 7: LET 
y=31+20x (1-1) -о: GO SUB 5000: P 
OKE mloc,PEEK (chto): NEXT o: NE 
XT h: NEXT i 
3333 LET 1x=LEN x$: IF 1x>10 THE 
N LET ,1x=10 7 
3333 PRINT AT 21,15-INT (1x/2);x 
$: FOR i=1 TO 5: LET v$=STR%$ (4% 
(1-1) %dx+x0): LET Iv=LEN v$: FOR 
hał TO lv: LET ax=48-8Xx(1v/2)+8 
K(h-1)+40x(i-1): LET ch=8% (CODE 
v$(h)-32)+15616: FOR ожо TO 7: L 
ET y=23-0: GO SUB 5000: POKE mlo 
C,PEEK (chto): NEXT о: NEXT hi N 
EXT i 
3340 LET v$=STR$ (Z0fdx+x0): LET 
lv=LEN v$: IF lv<4 THEN LET i= 
6: FOR hai TO lv: LET ax=48-8% (1 
м/2) +6ж (ћ-1) +4014 (1-1): LET ch=8% 
(CODE v$(h)-32)+15614: FOR oO T 
О 7: LET y=23-0: GO SUB 5000: РО 
KE mloc,PEEK (сһ+о): NEXT o: МЕХ 
Th 
3350 REM Plot the Data 
5555 FOR ізі TO num: LET xp=((vi 
1,i)-xO0) /dx) *10+xo0s LET ур= ( (м (5 
,i)-yO)/dy)*10+yo: PLOT xp,yp: D 
RAW -2.0: DRAW 4,0: DRAW -2,0: D 
RAW 0,2: DRAW 0,-4: CIRCLE хр,ур 
,2: NEXT i 
3340 PRINT #O;AT 0,12; "WORKING": 
IF norder>O THEN LET ix=(maxx— 
minx) *10/dx: FOR ізі TO ix: LET 
xa((i-i)xdx)/10-minx: LET v(2,i) 
=x: LET v(A.i)zVAL e$: PLOT INT 
(CGQv (O2, 12 -XO) /dx) Ж10+хо+. 5) , INT 
(Cv (4,1) -y0) /dy) £1O0*yo*. 5): МЕХ 
T i 
3370 GO SUB 3380: GU TO 150 
3380 PRINT #0;AT 0,03" 
Copy? Pres 
s LL "y" tt or uuy" LL] LL] 
3390 PAUSE O: LET y$=INKEY$: IF 
ys=“n" OR y$="N“ THEN GD TO 341 
о 
3400 COPY 
3410 PRINT #O;AT 0,03" 


"s RETURN 
5000 POKE 65250,ax: POKE 65261,У 
: RANDOMIZE USR 55250: LET mloc» 
25АЖРЕЕК 55263+PEEK 85262: RETUR 


N 
5110 DATA 237, 75,234, 254, 197,17, 
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0,0,213,213,17,87,0,213,205,0,98 
| 34, 238, 254, 50,240, 254,193,201 
5120 RESTORE 5110: FOR i=45230 T 
0 65254: READ а: POKE i,a: NEXT 
i: RETURN 
6280 GO SUB 3000: GO SUB 3200 
6285 LET min=minx: LET max=maxx: 
LET al=20: GO SUB 400: LET xO=m 
іп: LET dx=dl: LET хпаО: IF xO«O 
THEN LET xn=-x0/dx 
6290 LET min=miny: LET maxzmaxy: 
LET al=10: GO SUB 400: LET yOzm 
іп: LET dy=dl: LET ynzO: IF yO«O 
THEN LET yn=-y0/dy 
6300 IF xn>20 THEN LET xn=20 
6310 IF yn>10 THEN LET yn=10 
6320 CLS : LET хо=44: LET уо=28: 
PLOT xo-xntiO,yo: DRAW 0,100: F 
OR i=0 TO 10: PLOT xo-2-*xnft10,yo 
+10%i: DRAW 4,0: NEXT i: PLOT xo 
s Yo+ynX10: DRAW 200,0: FOR i=0 Т 
О 20: PLOT xo+10%i,yo-2+yn210: D 
RAW 0,4: NEXT i 
6325 FOR i=0 TO 200 STEP 5: PLOT 
xo+i,yo: PLOT xo+i,yo+20: PLOT 
xo+i,yo+40: PLOT xo+1i,y0+60: PLO 
T xo+i,yo+80: PLOT хоғі,уоғ100: 
NEXT i: FOR i=0 TO 100 STEP 5: P 
LOT xo,yo+i: PLOT xo+40,yo+i: PL 
OT xo+80,yo+i: PLOT хо+120, уо+і: 
PLOT xo+160,yo+i: PLOT x0+200,y 
O*i: NEXT i 
9527 LET lzxLEN z$: IF 12>10 THE 
N LET lz=10 
6328 LET top=11-INT (1z/2) 
6330 PRINT AT 2, (15S-LEN m$/2);m$ 
ЗАТ 5, (IS-LEN n$/2);n$: LET y$-z 
$: FOR ізі TO lz: PRINT AT top+i 
,Ory$(i): NEXT i: FOR i=1 TO 6: 
LET v$2STR$ (2X(i-1)kdy-yO): LET 
l1veLEN v$: FOR het TO lv: LET a 
x236-8X1v-8*€h: LET ch=8% (CODE vs 
(h) -32) +15615: FOR o=O TO 7: LET 
уж51%20Ж(1-1)-о: GO SUB 5000: P 
ОКЕ mloc,PEEK (ch+o): NEXT o: NE 
XT h: NEXT i 
5222 LET lx=LEN x$: IF 1x>10 THE 
М LET 1х=10 
6335 PRINT AT 21,15-INT (1x/2):x 
$: FOR ізі TO 5: LET v$=STR$ (4% 
(1-і) tdx+x0): LET Lv=LEN vs: FOR 
h=1 TO lv: LET axz48-8£(1v/2)-*8 
*¥(h—-1)+40% (i—i): LET ch=6% (CODE 
v$h) -22)*15616: FOR ожо TO 7: L 
ЕТ y=23-0: 60 SUB 5000: POKE mlo 
c,PEEK (ch+o): NEXT o: NEXT h: N 
EXT i 
6340 LET vsaSTR$ (20kdx+xO): LET 
lv=LEN v$: IF lv<4 THEN LET i= 


6: FOR h=1 TO lv: LET ax=46-6% (1 
v/2)+9x(h-1)+40x(i-1): LET ch=8% 
(CODE м%(Һ) -52) +15514: FOR o=0 T 
0 7: LET уш22-о: GO SUB 5000: РО 
KE mloc, PEEK (ch+o): NEXT os NEX 
Th 

6370 FOR ізі TO num: LET xp=w((v( 
1,i)-x0)/dx) k10+xo0: LET yp=((v(3 
,i)-yO)/dy)t10-*yo: PLOT xp.yp: D 
RAW -2,0: DRAW 4,0: DRAW -2,0: D 
RAW 0,2: DRAW 0,-4: CIRCLE xp,yp 
‚2: NEXT i 

6380 RETURN 

6499 REM Spline line segments 
6500 IF num<=1 THEN RETURN 

505 IF minxemaxx THEN RETURN 
5510 LET іхшіМТ ((maxx-minx)t10/ 
dx/3): LET dxxmimaxx-minx)/(ix-l 


): FOR ізі TO ix: LET v(2,i)=dxx 

£(i-ci)-*minx: NEXT i 

6520 LET in=0: FOR nai TO ix: IF 
numai THEN LET v(4,n)=v(3,1): 

GO TO 5820 

6530 IF nums2 THEN LET v(4,n)=F 

М b(v(S3S,2),v(S,1),v(1,2),v(1,1), 

v(2,n)): GO TO 5820 

6540 IF num>2 THEN GO TO 6580 

6550 IF v(1,2)<v(2,n) THEN LET 

v(4,n)=FN b(v(3,3),v(3,2),v(l,s3) 

sv(1,2),v(2,n)): GO TO 5820 

6560 IF v(1,2) жу (2,п) THEN LET 

v(4,n)=v (S,2): GO TO 6820 

6570 LET v(4,n) 3FN b(vCZ,2),v (3, 
1),v(1,3),v(1,2),v(2,n)): GO TO 

6820 

6580 LET js=1 

6590 IF v(l,js)=v(2,n) THEN LET 
v(4,n)=v (S,js): GO TO 6820 

6600 IF v(i,js)>vi2,n) THEN GO 

TO 6680 

6610 LET js=js+1: IF js<=num THE 
N GO TO 4590 

6620 LET v(4,n)=FN b(v (S,num), ví 
iZ.num-i),v(1,num),v(1,num—-1)20,v(2 
sN)): GO TO 6820 

6630 IF јѕ=1 THEN (ЕТ ksz2: LET 
jj=i: GU TO 6710 

6640 IF js>num THEN GO TO 6620 
6650 IF js=num THEN LET ks=num- 
1: LET jj-22: GO TO 6710 

6660 IF js-in THEN GO TO 5760 
6670 LET jj=Z: LET ks=js: GO ТО 
6710 

6680 IF js22 THEN (ЕТ ksa3: LET 
jj=1: GO TO 6710 

6690 IF js»2 THEN GO TO 6640 
6700 LET v(4,n)=v(3,2): GO TO 68 
20 

6710 IF ks<3 THEN LET ks=3 

6720 DIM e(2): DIM b(2): DIM d(2 
): DIM g(2) 


6730 FOR m=i TO 2: LET x1=v(1,ks 
-1)-vil,ks): LET x2=v(1,ks)—v(1, 
ks-2): LET «x3=v(1i,ks-2)-vi(1,ks-1i 
) 
6735 LET yl=v(ZS,kw%-1)-v(S,ks): L 
ET y2=v (S,ks)—-v (S,ks—-2): LET y3= 
v(3,ks-2)-v(3,ks-1) 
6740 LET xx1-v(1,ks-2)kv(l,ks—-2) 
z LET xx=2=v(1l,ks—-1)íXv (1,ks-1): L 
ET xx2Z-2v(1,ks)tv(1,ks) 
6745 LET d (m) =хх LEX LINX 28x хы x 
XI: LET e(m)=(v(3,ks—-2) Ехізу(2,К 
s-1)4&x24+v(3,kS) 4x3) /а (т): LET bt 
тм) = (хх1жу1 +хх2жу2+хх5жух) /dtm): 
LET g (т) =v (5, К5-2) -е(т) £&xx1-b (m) 
av(i,ks-2): IF ks<>num THEN LET 
ks=ks+1 
6750 NEXT m 
6760 LET pisv(2,n)*(e(1)xv(2,n)+ 
b(1))+g(1): REM LET slpi=2te(1) 
xv (2,n)+b (1): LET slp2=2te(2) iv( 
2,n)+b(2): IF јѕыі THEN LET slp 
За (у (S,2)-v 05,12) / (v (1,2)—v (1, 1) 
) 
6745 REM IF js>=2 THEN LET slp 
З= (у (S,js)—-v(Z,js-1))/(v(1,js)—v 
(1,js-1)) 
6770 IF jj=1 THEN LET р2=рі: LE 
T al=(v(2,n)—v(1,1))/(v(1,2)—v (1 
s1)): LET smal tv(3,2)+(1-al) av¢ 
3,1): LET pl=ss+(p2-ss)/2: GO TO 
6800: REM LET slp2=slpi: LET s 
lpiaslp3+(slp2-91p3)/2: GO TO 68 
00 
6780 IF ij=2 THEN LET p2=v(2,n) 
1 (0 (2) iv (2,п) +6 (2)) +902): LET pl 


SW3JSXS езер CWM/SA4214enD 4+0 XKsəquanQ3 


о 


=p2: LET al=(v(2,n)-vil,num-1))7/ 
(v(1,num)—v (1,num—1)): LET sø=al 
Xv (3,num) +(1-a1) fv (5, пит-1): LET 
p2=ss+ipi-as)/2: GO TO 5800: RE 
М LET slpi=slp2: LET slp2=slp3+ 
(slpi-slp3)/2: GU TO 6800 
6790 IF jj=3 THEN LET p2=v(2,n) 
*(e(2) Xv(2,n) +6 (2) ) +9 (2): LET al 
=(v (2,n)—-v(1,js-1))/ (v (1, jS) — (1 
sjJs-l)): LET sg=al%xv(3,js)+(1-—al 
) ív (3, js-1) 
6800 LET ei=ABS (pi-ss): LET eZ» 
ABS (p2-ss): LET in=js: IF (øl+e 
2)<=20.00001 THEN LET v(4,n)=sg: 
GO TO 4820 
6810 LET bt=(ettal)/(elftal+(1i-al 
)Xa2): LET v(4,n)abtip2+(1-bt) Ұр 
1 
7463 PLOT INT (((v(2,n)-x0)/dx)X 
10+x0+.3) , INT («(v(4,n)-y0) /dy)X 
10+уо+. 5): NEXT n 
7470 LET хр-ІМТ (((v(2,1)-—x0)/dx 
)X10*xO-*.3): LET ypsINT (((v(4,1 
)—yO)/dy)t10-yo-.2)0: PLOT xp, yp 
7480 FOR i22 TO ix: LET xp2=INT 
CCCv (2,1) 7x0) /dx) #10+хо+. 9): LET 
yp2=INT (((v(4,i)-y0)/dy) #10+уо 
*.2): PLOT xp,yp: DRAW xp2-xp,yp 
2-yp: LET xp=xp2: LET yp=yp2: МЕ 
XT i: RETURN 
7499 REM Straight line segments 
7300 LET xp=((v(1,1)—xO) /dx) 210+ 
хо: LET yp=((v(3,1)-y0) /dy) #10+у 
o: PLOT хр,ур 
7510 FOR i=2 TO num: LET xp2-((v 
(1,i1)—-xO)/dx)t10-*xo: LET yp2=((v 
Gh.i)-yO)/dy)XiO*yo: PLOT xp,yp: 
DRAW (хр2-хр), (yp2-yp): LET xp= 
xp2: LET yp=yp2: NEXT i: RETURN 
9998 STOP 
9999 CLEAR : SAVE "C-Fit" LINE 1 


DICE II 


by John Deering 


3 CLS : BORDER NOT PI 
5 PAPER HOT PI: INK URL "7": 


19 DIM CS(6,31 

20 LET OF (1) ='"+5++0%+%+" 

39 LET Ds Š КЕЗЕ а 

40 LET OF (2) a"0+++04+40" 

SO LET OS (4) ="О+0+++0 +0" 

BO LET OS (51 = '0+0+0+0+0" 

өз LET OS (53 ="0+0070030" 

ТӘ PRINT INK LAL "5":nT VAL “1 
I". VAL 29": "ROLL. THE pice 


78 FLASH SEN PI: SRIGHT NOT PI 
PRINT INK VAL "S"; AT URL "i2" 
USL "12"; ENTER 2": FLASH NOT PI 


100 IF R=NOT PI THEN STOP 
195 IF A«tVAL "2" THEN GO TO 1e 


110 FOR Xz3GN PI TO ñ 
152 LET B=INT (SGN PI+64RND) 
FOR Y=SGN PI TO INT PIxINT 

әт? STEP INT PI 

140 PRINT DS(B.Y TO Y+UAL "2") 
150 NEXT Y: PRINT : NEXT X 

200 PRINT. INK INT РІ; RT YAL "29 
“VAL "G";"Enter 8 to STOP" 

380 PLOT NOT PI.Y+140 

190 CRAU VAL "ZS".NOT PI. DRAU 
NOT PI,VAL "25". DRAU VAL “-25", 
NOT PI: DRAW NOT PI.UAL '-25" 
500 PLOT NOT PI,v+109 

500 ORRU 25.9: сааш 9,25: DRRU 
-25,9: DRAW 9,-25 

505 GO TO VAL сто” 

1000 CLS : FLASH SGN PI: PRINT P 
APER URL “S”; INK INT PISINT PI; 
AT VAL “10” VAL "9"; "тгу Again?! 
үке FLASH NOT PI: PAUSE 68: CLS 
: GO TO 78 
5000 SAVE "DICE-II" LINE 3 
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SIMPLE SNAP-GRID 
for Paul Bingham’s 
ULTRA-EASY DESIGNER GRAPHICS 


by Herb Bowers 


When I first saw Paul Bingham's = 
Regigner Graphics program іп the July/August '86 
tssue of TIME DESIGNS, I was not very impressed. I 
thought it was another опе of those "ho-hum” UDG 
programs for the 752068; difficult to type іп and 
even more difficult to use. So I zapped right on by 
tt, having given it only a token glance. 

About a month later, I was in the midst of 
writing a program called Money Machine II and was 
attempting to design a simple animated graphic and 
found that none of the UDG utilities that I had 
would da the trick. I remembered having seen Paul's 
article and the words "Ultra-Easy* must have made 
its impression on me. If it’s easy, I'm all for it. 

I Iocated my TDM under the pile of notes, 
abandoned LLISTing and other debris that seems to 
accumulate on my desk when I am hard at "'work*, and 


after ап hour or so of hunt-n-pecking, I had Paul's 
program up and running. No bugs the first time 
through. 


I had so much fun playing with the utility that 
I almost forgot my original purpose. I set to work 
an my animated graphic and then came a rude 
awakening. I was having a little difficulty in 
getting things lined up properly on the screen and 
had to іс а 10% of back-spacing, deleting and 
redarkening of pixels. Å cursor travels in straight 
lines, but my eye-balls don't. Thats why we have 
rulers. A straight edge held against the screen 
helped, but was a little awkward. 
I at once set out to design an optional grid. 
The one I came up with was optional but permanent 
because once you put it in, it was there to stay. I 
also devised a tinted area to seperate the four 
cells. It worked well and served my purpose for the 
time being...it could be put in Paul’s program after 
some WOrk wam already in progress, and it didn't 
interfere with the CODE function of the program. 
I sent a copy of the enchancement to Paul. He 
liked it, and admitted that he had fooled around 


with the grid idea but the little cross in the 
middle of the screen was all that was left of it. He 
told me that one thing he would want to add to his 


UDG program is what is called а “snap-grid". He went 
on to explain that in CAD programs, it is à simple 
grid that one can turn on and off at will. He said 
that the tricky part of doing this is avoiding 
“goofing up” work already on the screen. He asked me 
1$ I was up to it. 

I have never seen a CAD program but I was 
determined that once I had MONEY MACHINE II in the 
can, that I was going to develop this "snap-grid". 

The *"snap-3rid" is now completed and is 
presented here for you to add to Mr. Binghams 
already great program. You can type it directly into 
the program that was published in TDM or type it 
separately, SAVE it, then MERGE it with the program. 
Incidently, the enhancement may also be MERGEd with 
Paul's ”bells-n-uhistles" version which appeared in 
the November / December "84 issue of TDM, if you 
happen to have that. 

Lines 26, 46, 400 and 8105 
slight addition to the original program 
other lines are new. Naturally, 
MERGE the enhancement, than all 
in their entirety. 

An actual SCREENS from the enhancement with the 
"snap-grid"’ in place is presented here. I have 
re-entered the UDG's that were x^own in the original 


only require a 
lines. All 

if you are going to 
lines must be copied 


article. hr. 
cent mark, 


Bingham showed us a "venetian blind’, a 
and appropriately enough, a watch(Timex?) 


31 
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created with a multi-CHRS UDG. The 
"venetian blind" configuration would really not 
require a grid to design, however, the grid ів a 
great aid in designing the cent mark and the watch. 

Take Paul's watch (please!)...with the grid in 
place, you can move the "phantom cursor" around each 
of the celis and darken the appropriate pixels 
without any back-tracking in less than half the time 
it takes to do it without the grid. The grid would 
also be a nifty device to use if you wanted to add 
some additional links to the watch band at a later 
time with additional multi-CHR® UDGs. Above all, the 
grid is absolutely essential in designing simple 
animated graphics from BASIC. 

The only additional documentation necessary for 
operation of the grid is that your KEY DESCRIPTION 
list should now contain a description for the "2" 
key which is very simply: '2 snap-grid toggle’. 


very simple 


If you missed the July/August '86 оғ the 
November/December '86 issues of TIME DESIGNS which 
contained the original LLISTing fand enhanced 
version in the latter) for ULTRA-EASY DESIGNER 
GRAPHICS, you can order copies for just 3*3 each 
postage paid from the publisher. 

Oh, just one other little thing. If you find 


that you have been losing the last Syte of CHRS 162, 
(UDG *T"), when you SAVE your UDGs...you сап fix 
this by changing the number 159 located in lines 28 
and 29 of the original published program, to 160 (in 
the enhanced version, the line numbers are 28 and 
370). 

If you have any questions, you can write to me 
at 2588 Woodshire Cir., Chesapeake, VA 23323. 


REM 


"ULTRR-ERSY DESIGNER GRAPHICS" 
version 1.2 bug P. binqham 
"SNAP-GRID'" ENHANCEMENT 
bg: herb bowers 19/35 


26 LET gridzà: PAPER 7: LET k= 
S+(S4INT (pX/12)): FOR h=k TO k+ 
7: PRINT RT Pu, ,h;CHR*š$ 128: NEXT 
h: RETURN : REM +**ñdd LET grid=08 

statement «1 to existing 
lines+ 


46 NEXT 4: LET gi1sg1«1: NEXT m 

: NEXT t: LET aridxQ: RETURN : 

REM +*++add arid д statement 25 to 
existing Linett 


103 LET gridada 

195 IF CODE INKEY*$=SQ@Q THEN GO 3 
UB 3300 

315 IF a(t) =5 THEN LET ait) =7 


409 PAPER 7: FOR h=x TO x+7: FO 
R tay TO.u+7: PRINT RT h,t;CHR5 
128: NEXT t: NEXT h: ШЕТ gridað: 

RETURN : REM #+Add grid=23 

statement 28 to existing 
Line++* 


3182 LET pyl=163-p948: LET pxisp 
X + 


8105 IF atz7 OR at=5 THEN PRINT 
PAPER at; AT py,px;CHR% 134: PRIN 
T AT Pu,px;CHHS 137: PRINT AT ру 
„Рх; CHR$ 1239: REM szLine change 
only to add OR ataS in 
statement 2144 


8197 IF grid THEN PLOT px1,PY1: 
DRAW 3,3: PLOT рх1,ру1: DRAW д 


9135 LET grid=9 

9000 IF grid THEN GO TO 9335 
2305 FOR t=43 TO 168 STEP 3: PLO 
T t,40: DRAW 2,127: NEXT t 

9310 FOR t=43 TO 160 STEP 8: PLO 
t: DRAW 127,0: NEXT t 

9315 FOR h=12 TO 13: FOR tal TO 
15: IF ((ATTR it,h)/8)«500) THEN 
PRINT PAPER 5; OVER LAT t,h;” " 
9329 NEXT t: NEXT h: LET grids=t 
8225 FOR h=3 TO 9: FOR t35 TO 29 
: IF ((ATTR ih,1)/8)<90) THEN PR 
INT PAPER 5; OVER LAT h,t;" " 
9330 NEXT t: NEXT h: RETURN 
9335 FOR h=5 TO 29: FOR t=1 TO 
5: IF (itATTR it,h)7/8)«50) THEN 
RINT PAPER ?7;AT 1,һ;" " 

9340 NEXT t: NEXT h 

9345 LET grid=8: RETURN 


DR 


DRAW FOdKER 


BY 
WILLIAM C. 

This 152068 program is a FIVE CARD DRAW POKER 
game, playing against the computer as the dealer. 
After making a bet you are dealt five cards. You may 
discard or hold any number of these cards. Discards 
will be replaced and the dealer will determine a 
winner. You must have a pair of JACKS or better to 
win. The payott depends оп the the value of your 
win. The computer is also your banker to watch your 
finances. 

When typing the program, note that letters in 
quotes in lines 140, 150, 180, 7020, 9991 and the 
last letter in lines 8001 to 8052 are in GRAPHIC 
mode for UDG's. To clear screen of color to work on 
the program, use GOTO 9999, 

A copy of this program on tape is available 
from me, for $10.00 postage paid if you do not wish 
to type in the listing: 30 бак Knoll Drive, San 
Anselmo, CA 94960. 

5 CLS : LET 5з100 

10 GO SUB 9000 

20 GO SUB 8000 

3Ø BORDER 4: PAPER 4: CLS 

2“ GO SUB 1200 

4g PRINT АТ 9,12: INK 11! w 
=w=' AT 10,12; PAPER 2: INK 9: FLA 
SH 13" DEAL ";AT 11.12: PAPER 3; 

INK 1; FLASH J =="; CAUSE 
209 

SQ FOR Ма9 TO 111 FRINT AT N. 1 
54" "¢ NEXT М 

68 DIM V8(32,2) 

70 DIM DS(S2,2 

82 DIM X$(5,1) 

90 LET P=Ø 

100 LET Z-1 

110 RANDOMIZE 

120 FOR à«2 TO 20 STEP 6 

130 FOR Emi TO 5 

140 PRINT АТ 8,414 PAPER 7; "FIJI 
з" 

150 FOR N=9 TO 15 

16g PRINT AT М,А; PAPER 7: "К 
к" 

170 МЕХТ М 

180 PRINT АТ 14,А; PAPER 71"HJJ 
JI" 

190 NEXT B 

195 BEEP .01,15 

200 GO SUB 7000 32 


ANDREWS 


219 PRINT PAPER 7:AT 9,A+1: IN 
K Х:АФ(Е, 4) :АТ 11, Aria INK 5: ASC 
F,2 TO IAT 12,0-2; INK Х;АЯ( 
F,4) 

215 GD SUB 7050 

220 LET AS(F,1)=" 1" 

220 LET DS(N)=AS(F,I TO 5) 

240 LET V$(2)*D$ (М) 

2250 LET xs(Z)=AS(F,4) 

240 LET Z=Z+1 

2780 NEXT А 

тай LET Pe21 GO SUB 589 

296 FOR N=2 TO 20 STEP 6 

599 PRINT AT 15,N; PAPER 7: FLA 
SH 1;"HOLD?";iAT 20,14; PAPER 77" 
(Y/N)": PAUSE д: FLASH J: IF INK 
EY$-"Y" OR INKEYS="y" THEN GO 5 
UB 3289 : 

Sig IF INKEY$<>"Y" AND INKEY$< > 
"y" THEN GO SUB 342 
37Ø IF INKEYS<>"Y" AND ІМКЕУ%<> 
ty" THEN LET DS(N)=" " 

540 NEXT N 
241 GO TO 35 
342 FOR Ія8 TO 15 
542 PRINT AT I,N;' ^ 
344 NEXT I 
345 LET D$(N)w" " 
$46 RETURN 
250 PRINT AT 17,9;" 

"AT 20,141: " 


252 PRINT АТ 146,12; INK 1: 1 
="; AT 17,13: PAPER 2; INK 9; FL 
ASH 1;" DEAL ";AT 18,12: PAPER Ө 
; INK 1; FLASH 9;'—"; PAUSE 
g 


379 PRINT AT 18,124" "SAT 
17,12," "SAT 18,135" ' 
1 GO TO 290 


280 PRINT AT 13,N; PAPER 1; INK 
94 "HOLD f": RETURN 

290 LET 229 

400 PRINT AT 20,0%" 

405 FOR Nez TO 3Ø STEP 6 

419 PRINT АТ 8,Ny PAPER 7; "FJJJ 
g" 


411 FOR K=9 TO 17 
412 PRINT PAPER 7 AT К, № "К" pA 
T K, N*4j "K" 


412 IF SCREENS (15,N)=" " THEN 
PRINT AT KyN+1; PAPER 73" " 
414 NEXT K 


415 PRINT AT 14,М) PAPER 7;"HJJ 
JI" 

420 LET Z=Z+1 

450 IF SCREENS (15,N)="H" THEN 

LET D$(Z)9-U$(ND 

440 IF SCREENS (15,N)="H" THEN 

GO TO 522 

45¢ GO SUB 7000 

470 IF SCREENS (15,N)e" " THEN 

PRINT PAPER 7;AT 9.N*1; INK X; 
AG (F.A)JAT 11,№+1; INK D; A$(F,2 
TO 3)sAT 1Z,N*3; INE XJAS(F,4) 

BEEF .@1,15 

475 GO SUB 7030 

480 LET AS(F,1)="1" 

490 LET DS(ND-AS(F,2 TO 3) 

Egg LET V$(Z)=D* (D 

Бір LET X&(2)*A*(F.4) 

S26 NEXT N 

525 PRINT AT 15,0;" 

570 LET Peo: GO SUE 580 

SIS IF Foel AND VAL J$>1Ø OR VA 
L Js=! THEN GO SUB 900 

536 IF F>=2 THEN GO SUE 9ØØ 

540 IF Ға) OR Feel AND VAL JS$«1 
1 AND VAL JS<>1 THEN FRINT AT 1 
9,7; PAPER 1; INK 9;" SORRY---TR 
Y AGAIN? "1AT 4,20; "LOST": BEEF 
.5S.-241 BEEP 1,-3Ø 

SSO IF P<=1 AND VAL 26511 AND V 
AL J$»-1 THEN PRINT АТ 6.0: FAP 
ER 5; INK Ø; FLASH 1;" PAIR OF J 
ACKS OR BETTER TO WIN " 
қой PAUSE Ø 
570 CLS : PRINT AT 12.168; FAFER 
21 INK 6: FLASH 1;" SHUFFLING * 

GO TO 20 
S89 PRINT AT 17,9," 

59% IF Peg THEN IF VS(1)=V8(2) 
OR V$(1)=V$(2) OR У%(1)е9%(4) O 
R V$(1)eV$(5) THEN LET Fel: LET 

JS=VE(1) 

592 IF Рай THEN IF V$(2)2US C2) 

OR У%(2)-У%(4) OR V$(2)eUS (5) T 
HEN LET Fei: LET JS=V8(2) 

594 IF Ре) THEN IF из (2) уф (4) 

OR V$()-V$(5) THEN LET F=1: L 
ET Js=ve(3) 

596 IF Рей THEN IF УФ (4) =0Ф (9) 

THEN LET Pei: LET Js=Vs (4) 

598 IF Psi AND V$(1)=V$(2) AND 
МФ (2)42U$ (12 AND V%(2Z)<>V$ (2) TH 
EN IF VS(3)=V$(4) OR V(I) mVS (= 
) OR уж (4) =ув (5) THEN LET Ри? 

800 IF Pei AND V$(1)=V%(%) AND 
У6(43<>У%(1) AND VS (4)<2>V8 (2) TH 
EN IF 9У%(4) «У%(2) OR VS (4)=V% (5 
) OR V$(2)=V%(5) THEN LET Ра? 


6Ø2 IF Pel AND V%(1)=V%(4) AND 
VS (5) <>УФ (1) AND У%(5)<>У86(4) TH 
ЕМ IF VS(S)=V#(2) OR VS(S)ayvs(T 
) OR V€(S)=V%(5) THEN LET P=2 
604 IF P=1 AND V@(1)=V%(2) AND 
V$(2)<>V% (1) AND V%(2)<>V$(5S) TH 
EN IF У%(2)-У%(2) OR V$(2)=u%(4 
) OR V$(S)=V%(4) THEN LET Р=2 
606 IF Pel AND VS(2)=V%(3) AND 
V%(1)<>V%$(2) AND VB(1)<>V8 (3) TH 
EN IF V%(1)=V%$(4) OR VS(1)=VS(S 
) OR Уу% (4) шуф (=) THEN LET P=? 
608 IF Pmi AND V#(2)=V#(4) AND 
V%$(1)<>V$ (2) AND V%(1)<>V%$(4) TH 
EN IF VS(1)=VS(3) OR V%$(1)=V$ 5 
) OR V%$(S)=V%(5) THEN LET Рет 
618 IF Pei AND У%(2) =у% (5) AND 
V$(1)42VS$ (2) AND V%(1)<>V$(5) TH 
EN IF V$%$(1)=V%(2) OR Vs(1i)=V8(4 
) QR V$(S)w=V$ (4) THEN LET F=2 
612 IF Pei AND VS(3)=V$(4) AND 
УФ (1) <>У% (S) AND VÆ(LIKD>VS(4) TH 
EN IF V%(1)=V%(2) OR У6(1)еУ% (7 
) OR У% (2) жуф (5) THEN LET Fa2 
614 IF F=1 AND V$ (Z)=<V$ (=) AND 
V#(1)<2VS(5) AND V%(1)<>V$(5) TH 
EN IF V$(1)=V$(2) DR V8(1)=V8(4 
) OR V$(2)=V$ (4) THEN LET P=2 
616 IF Pet AND V$(4)=V3(5) AND 
V$(1042V$& (4) AND V®(1)<>V8(5) TH 
EN IF V$(1)-V$(2) OR V$(1)=V$ (5 
) OK vsi2)=V3(3) THEN LET Px=2 
618 IF Раі AND V$(1)=V$(2) THEN 
IF 9%(2) «У6(1) DR V$(4)=US(1) 
OR V%(2)w=V$(1) THEN LET P=3 
620 IF Pei AND VS(1)=V6(3) THEN 
IF V$(2)=V$(1) OR V$(4) US (1) 
OR VS(S)=VS(1) THEN LET P=3 
Z2 IF Pei AND V$(1)sV$(4) THEN 
IF V$(2)=V$ (1) OR УФ (5) ауф (1) 
OR V$(Z)xzU$(1) THEN LET Pez 
624 IF Pet AND VS(L)=VS(%) THEN 
IF V$(2)=V%(1) OR VSCX)sSUS (1) 
OR V$(4)*V$(1) THEN LET F=3 
626 IF F=1 AND V®(2)=V$(3) THEN 
IF V$(1)=V%(2) OR V%(4)=U$ (2) 
ОК V$(Z)2US$(2) THEN LET P=3 
628 IF F=1 AND VS(2)=V$(4) THEN 
IF VS(1)=V$(2) OR У% (2) шуф (2) 
OR У% (5) =0% (2) THEN LET Psd 


626 IF Pei AND 9% (5) зУ6(4) THEN 
IF У%(1) =у% (TS) OR УФ (2) REVS (5) 
OR У% (5) жу (3) THEN LET Fes 
632 IF Рші AND У% (5) mV (S) THEN 
IF V%$(1)=V$ (7) ОК УФ (2) жу (2) 
OR У% (4) жу (5) THEN LET Fed 
634 IF Pel AND У% (4) =у% (5) THEN 
IF 7% (1) жу (4) OR УФ (2) юу (4) 
OR м% (5) жу% (4) THEN LET Fes 
636 IF P=2 AND УФ (1) =у% (2) AND 
У% (5) яУ%(4) THEN IF VS(Z)=VS(1l) 
ОК 7% (5) жу$ (5) THEN LET Fas 
628 IF Pel AND У%(1) жу% (2) AND 
М9 (5) я«9%(5) THEN IF У% (4) муф (1) 
OR У% (4) жуф (2) THEN (ЕТ Fas 
648 IF P=2 AND VS(i)=V#(2) AND 
УФ (4) =у% (5) THEN ІР У%(5) жу% (1) 
OR У% (5) жуе (4) THEN LET Fes 
642 IF Ре2 AND У%(1) =у%(7) AND 
VS(2)mV$(5) THEN IF У% (4) =у% (1) 
OR V$(4)2V$(5) THEN LET F=3 
644 IF Pez AND УФ (1)=V$ (Z) AND 
У% (4) «У%(5) THEN IF 9У%(229У%(1) 


OR V$(2)-V$(4) THEN LET F=5 
646 IF P=2 AND У%(1) =у%(4) AND 
V$(2)=V%W(2) THEN IF У% (5) зУ6(1) 
OR V%(5)=V%(2) THEN LET P=3 
648 IF Рч2 AND V%(1)=V%(4) AND 
V$%$(2)=V#W(2) THEN IF V$(2)2U$S(1) 
OR V$(Z)*V$(Z2) THEN LET Рч5 
850 IF P=2 AND V$(1)"V8(5) AND 
V%(2)=V%(2) THEN IF 9У%(4) зУ%(1) 
OR V%(4)=V%$(2) THEN LET Р=5 
652 IF Рас AND VS(1)=V9(5) AND 
У%(2) «У%4(4) THEN IF VS(Z)avs(1) 
OR V$(3)=V$(2) THEN LET Ря5 
654 IF Pa? AND VS(i)=VS(3) AND 
М9 (5) =у% (4) THEN ІР VS(Z)=Vs(1) 
DR У% (2) жу (3) THEN LET P=% 
454 IF P=2 АМО У%(2)-У% (2) AND 
УФ (4) жу (щ) THEN IF У%(1) =у% (2) 
OR У%(1) жув (4) THEN LET P= 
658 IF P=2 AND УФ (2) «У%(4) AND 
У4(22чУ4(5) THEN IF VEL) mv (2) 
OR V$(1)=V%(2) THEN LET P=3 
560 IF P=2 AND VS(Z)=V3(5) AND 
У%(2) зУ%(4) THEN IF V$(1)2V$(2) 
OR V$(i1)*mV$(Z) THEN LET F=Š 
662 IF Pez AND V$(1)-V$(2) AND 
МФ (1) яУ%(5) THEN IF V%(4)=V%(1) 
OR V$(S)=V%(1) THEN LET F=4 
664 IF Р«2 AND У%(1)шУ%(2) AND 
V%(1)=V%(4) THEN IF V$(222V$(1) 
OR V%4(S)=V%(1) THEN LET Рай 
666 IF F=73 AND V$(1)=VS(I) AND 
V$(1)-U$(4) THEN IF V$(2)-US(1) 
OR У% (5) зу$(1) THEN LET F=4 
668 IF P=3 AND У% (1) =У%(2) AND 
V$(12-V38(92) THEN IF VS(I)=Vvs(1) 
OR VS(4)=VS(1) THEN LET Pa4 


570 IF Pet AND V$%$(1)=V%(2) AND 
VS(1)=VS(5) THEN IF V$(2) -US(1) 
OR VS(4)=V$(1) THEN LET P=4 
672 IF Pes AND 9У%(1)-9У%(4) AND 
УЯ%(1)УЯ4(5) THEN IF V$(2Z)xU$(1) 
OR V$(Z)9V$(1) THEN LET P=4 
574 IF P=3 AND V$(2)*-U$(02) AND 
УФ (2) 2V$(4) THEN IF V%(1)=V$ (2) 
OR 0905) жу9(2) THEN LET P=4 
676 IF P=3 AND V$(2)sU$(4) AND 
МФ (2) зУ4(5) THEN IF Væ(l)avs(2) 
OR У%(2)жУ%(2) THEN LET P=4 
678 IF P=3 AND VS(3)=V$(4) AND 
V$(Z)9U$(5) THEN IF VSL ys (3) 
OR V$(2)-U$(2) THEN LET P=4 
580 IF P=3 AND VS$(1)2V8(2) AND 
V$(1)-V$(0Z2) THEN IF VS(4)=VS(E) 
THEN LET Pes 

6B2 IF P=Z AND V#(1)=V#(2) AND 
V$(1)2V$(4) THEN IF У%(2)яУ%(5) 
THEN LET P=5 

584 IF Pes AND VS(1)=V$(2) AND 
МФ (1) жуф (5) THEN IF У%(7) жуф (4) 
ТНЕМ LET P=5 | 
686 IF P=Z AND V%*(1)=V%(2Z) AND 
V$(1)9V$(4) THEN IF У%(2)шУ%(5) 
THEN LET P=5 

688 IF P=3 AND VS(1)*-V$(2) AND 
У%(1)4У%(5) THEN IF V$(2)-V$(4) 
THEN LET P=% | 

590 IF Pet AND V$(10-US$(4) AND 
V$(1)9V$(Z) THEN IF V%(2)=V% (3) 
THEN LET P=5 

692 IF Pe3 AND VS(2)=V8(3) AND 
ve(2)=Vv$(4) THEN IF V (1)=v% (S) 
THEN LET P=5- 

694 IF P=3 AND V#(2)=V8(3) AND 
ув (2) ву% (9) THEN IF У%(1) V8 (4) 
ТНЕМ LET P=5 

696 IF Ре5 AND VS8(2)=V8(4) AND 
V€(2)=v%(%) THEN IF V$(1)=V% (1) 
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THEN LET P=3 

698 IF P=3 AND V$(2)-U$(4) AND 
Ув (5) ув (5) THEN IF V%(1)=V%(2) 
THEN LET P=5 

780 IF X%(1)=X%(2) AND X$(2)=X%$ 
(3) AND X$(2)9X8(4) AND Х%(4)чХ% 
(S) THEN LET P=6 

785 GO SUB 1220 

790 IF P=1 THEN PRINT AT 17,11 


j PAPER 2; INK 9;" ONE PAIR "1 B 
EEP .5,10 

800 IF Р=2 THEN PRINT AT 17,11 
j PAPER 2; INK 93" TWO PAIR ": B 


EEP .5,10і BEEP .5,1@ 
819 IF P=Z THEN PRINT АТ 17,8; 
PAPER 2; INK 9;" THREE OF A KIN 
D "1 BEEP .5,10: BEEP .5,10: BEE 
P .5,10 
2Ø IF Pe4 THEN PRINT AT 17,81 
PAPER 2; INK 9;" FOUR OF A KIND 
"1 BEEP .5,10: BEEP .%,1ø: BEEP 
25,10: BEEP .5,1Ø 
83Ø IF Pet THEN PRINT AT 17.10 
; PAPER 2; INK 9;" FULL HOUSE "i 
BEEP .2,1й0: BEEP .2,10: BEEP .Z 
,101 BEEP .3,181 BEEP .3,1Ø 
Вай IF P= THEN PRINT AT 17,12 
j PAPER 2; INK 9;" FLUSH ": FOR 
Nei TO 20: BEEP .01,Мі NEXT М 
845 IF P=7 THEN PRINT AT 17,11 
j PAPER 2; INK 91" STRAIGHT ": F 
OR N=1 ТО 20: BEEP .ØL,N: NEXT N 
85@ RETURN 
9ØØ PRINT AT 19,12; " PAYS ":AT 
21,12,P;" TO 1" 
91d LET Q»WxP: PRINT AT 4,20; P 
APER 1; INK 9;"WON--"; PAPER 6;" 
$ "Qi" ": LET S=S+Q+w 
92 PAUSE 60: PRINT AT 2,14," 
"SAT 2,144 PAPER 6; INK 918;" 
": RETURN 
1000 DIM ACS): FOR Мзі TO © 
1005 LET ACN) SVAL VS (N) 
1919 NEXT Ni GO SUB 1070: RETURN 


1015 DIM А(5): FOR N=] TO 5 
1020 LET A(N)=D(N) 
1225 NEXT М: GO SUB 1920: RETURN 


1Ø3Ø LET STReÿ; FOR Nal TO 4 

1025 FOR Mei TO S-N 

1040 LET C=A(M) 

1045 LET D=A(M+1) 

15d IF C<=D THEN GO TO 158 

1055 LET ACM) =D 

1050 LET A(M+1)=C 

1965 NEXT M 

1070 NEXT N 

197% FOR N»2 TO 5 

1080 IF A(N)=A(N=1)+1 THEN GO Т 

0 1999 

1085 RETURN 

1090 МЕХТ М 

1095 LET STR*1: LET F=7: RETURN 

1200 PRINT AT 2,1; PAPER 1: INK 

9:" YOU HAVE- "; PAPER ó; INK 9: 

"Ф "S" “3 PAUSE эй 

1205 IF S<=@ THEN PRINT AT 10,0 

1" YOU'RE BROKE---SEE YOUR SANKE 

R "РАТ 12.81" COME BACK AGAIN. " 
PAUSE dt IF S<aÿ THEN STOP 

1218 PRINT AT 4,15; PAPER 1: INK 
91" YOU BET--"; PAPER ò; INK 1j 
FLASH 13" 7 

1220 INPUT PAPER 4: INK 9:" LIM 

IT» $ 19 "Н 

1222 IF W<1 THEN GO TO 1222 

122% IF W»18 THEN GO TO 1220 


230 PRINT АТ 4,24) PAPER 6; INK 
9%"% “ows n " 

1232 LET S=S-W 

1222 PRINT AT о,0% PAPER 2; INK 
91 BRIGHT 1%! PAIR OF JACKS OR B 
ETTER TO WIN " 

1249 PRINT AT 2,144" " 
ЈАТ 2,14; PAPER өр INK 9418," " 


8052 LET AS(32)="Ø KD" 
8095 RETURN 
9000 RESTORE : FOR a=USR "a" TO 


USR "k"+7 
9010 READ 
9920 NEXT 
9Ø3Ø DATA 
58,24 


hi FOKE a,h 
at RETURN 


24,608,126, 255, 255, 126, 


1250 RETURN 92040 DATA 28,28,8,107,127,107,8, 
7000 LET F=INT (RNDXSZ)-*1 28 

7010 IF AS(F,1)<>"Ø" THEN GO TO 9050 DATA 16,356,124, 254,234, 254, 
7000 15, 55 

7020 LET X=ø1 IF А%(Р,4)="А" OR 9960 DATA 102,255,255, 255, 255,12 
AS(F,4)="D" THEN LET Хш2 6, 60, 24 

7025 RETURN 9070 DATA 2Ø4,204,51,51, 284, 204, 
7Ø3Ø IF AS(F,2 TO Z)=" A" THEN 51,51 

LET Aw(F,2 TO 5)="14" 9080 DATA 0,0,0,7,19,12,24,24 
7042 IF AS(F,2 TO 5) а" J" THEN 9090 DATA 9,0,0,192,240,48, 24, 24 
LET AS(F,2 TO 30-511" 9100 рата 24,24,12,1%5,7,0,2,0 
7050 IF АФ(Е,2 TO =" Q" THEN 9118 DATA 24,24,48,240,192,2,20,2 
LET A$(F,2 TO JD="12" 9120 DATA 0,0,0,255,255,0,0, 
705% IF AS(F,2 TO 204" K" THEN 9120 DATA 24,24,24,24,24,24,24,2 
LET A$(F,2 TO Jæ="13" 4 

7Ø6Ø IF AS(F,2)-" " THEN LET As 9998 REM a b c def g h i jk 
(F,2)m-"g" 9991 REM A B C D E F GH I J K 
7Ø7Ø RETURN 9992 BORDER 7: PAPER 7: INK d: C 
8900 DIM 0%(52,401 DIM Ј%(2): LE LS : STOP 

Т Jsargør 9994 CLS ; SAVE "DRAW POKER" LIN 
8001 LET AS(1)="Ø AA" Eg 

8002 LET AS(2)="Ø 2А" 9995 GO TO Ø 

8005 LET As(Z)="Q@ ZA" 9999 BORDER 7: PAPER 7: INK й: В 


8004 LET A$(4)-"O 4A" 
8005 LET AS(S)2"g SA" 
8986 LET AS(6)="Ø ва" 
8007 LET AS(7)m"Ø 7A" 
8008 LET AS(B)="Ø Ва" 
8009 LET AS(9)="g 9A" 
8010 LET AS(1Ø)="Ø1Ø4" 
8911 LET AS(11)="Ø JA" 
8012 LET AS(12)="9 QA" BY 
8012 LET AS(13)="Ø KA" 
8014 LET AS(14)="Ø AB" 
8015 LET AS(15)="9 ZB" 
8916 LET AS(15)="Ø ZB" 
8017 LET А%(17) =" 4B" 


RIGHT 2: CLS : LIST 


ELACK JACK 


WILLIAM C. ANDREWS 


8818 LET Ав (18) ж! ZB" This ің а 752068 version of Las Vegas BLACK 
8919 LET AS(19)="# AB" JACK except for “doubling” or 'splitting*. It will 
ANIM LET AS(7Ø)="ø 7B" offer an insurance bet against dealer’s BLACK JACK. 
8021 ET Аәстіушей gg" The computer is the dealer and will monitor the 

- - - game's progress. The program is self-starting, no 


8922 LET AS(22)="Ø 98" dealt 
8025 LET AS(23)="Ø1ØB" 
8024 LET AS(24)="Ø JB" 


card will be duplicated, and a shuffle will 
occur for each new game. 
Letters in quotes in lines 1800, 1820, 1840, 


892% LET A$(2Z)z"0 OB" 1930, and 2000 are in GRAPHIC mode for UDG's. This 
8026 LET AS(Z6)="Ø KB" is shown in line 2770 which are also in graphic 
8027 LET AS (27)æ" å AC" mode. The suit of each card is the last letter 


(graphic mode) in lines 2090 to 2600. A GOTO 2780 


8028 LET As(298)="3 2C" will clear all color from the screen to better study 


8029 LET А% (29) =" SC" 


the lines. 
8050 LET А% (50) а" ас" Tired programmers can get a taped copy of the 
8871 LET AB(Z1)="g tC" program from me for $7,50 postage paid, at: 30 Oak 
8022 LET AS$(37)=a"Ø с" Knoll Drive, San Anselmo, CA 94960. 
8035 LET ASST)" 7C" 
8934 LET AS(74)="Ø 8С" 10 LET ST=2ØØ 
BOIS LET AS(ZZ2)-"g 9С" 20 RANDOMIZE 
8056 LET AS (34) ="ØLØC" 50 BORDER 41 PAPER 71 CLS 
8057 LET А% (57) ж"0 JC" : 46 GO SUB 2080 
8058 LET As(28)="0 QC" 50 IF ST=Ø THEN GO TO 1240 
8929 LET AS(IG)="Ø KC" Að PRINT АТ 2,9; PAPER 44” 
8040 LET А% (40) ж" AD" "HAT 
8041 ШЕТ A$(41)="g 2р" 0,10% PAPER 2; INK 9; BRIGHT 1) 
8042 LET А% (42) ж"0 Зр" " BLACKJACK " 
8045 LET Аж (45) =" 4D" 70 INK 1 


BØ LET Ke rm 


8044 LET А% (44) ж" SD" 
8045 LET A$(45)2="Ø ар" 
8046 LET А% (46) ж" 7D" 
8047 LET AØ(47)="Ø BD" 
8948 LET As(48)="Ø 9D" 
8049 LET As(49)="Ø1ØD" 
8050 LET AS (50) ж"0 JD" 35 
8051 LET AS(Si)="ø QD" 


o MJ 
90 LET Ф Шан 
 —r<swFwCmsaan 
100 PRINT PAPER 4(K$ 


11@ PRINT "W YOUR HAND DE 
ALERS HAND |" 


120 PRINT АТ 2,04% АТ 2,9; "F"; 
AT 3,5141 

120 FOR Іші TO à 

140 INK 1: PRINT "W" TAB 51; " E 
"J TAB 214 "g 

150 NEXT I 

180 FOR I=2 TO 14 

170 PRINT АТ I,i1i2,"W" 

180 NEXT I 

190 PRINT L$ 

208 PRINT AT 15,0; "P"JAT 15,214 


L; PRINT АТ 18,0; "P";AT 16,21; 
229 PRINT АТ 17,8;L9 
220 PRINT АТ 15,123" ВЕТ 


249 FOR Nwié TO 18 

250 PRINT AT N,121 ll 1" 

268 NEXT N 

270 PRINT AT 19,12; "wmm t 

282 INK Ø 

290 PRINT INK ØJAT 18,2; "YOUR 

STAKE"; AT 20,2y"% "jST 

200 PRINT FLASH 1; INK 2;;АТ 2 
1,8)" MAKE YOUR BET * 

519 INPUT W 

5220 IF W«1 THEN GO TO 319 

220 IF W>ST THEN PRINT INK ð; 
АТ 16,13,"THATS";AT 17,135" TOO 
"ЈАТ 18,151" MUCH" 

349 IF W>1ØØ THEN PRINT INK 9 
IAT 15,13; "SORRY"JAT 17,12; "LIMI 
T"JAT 18,12,"* 1ØØ"1 GO TO 219 

550 IF W>ST THEN GO TO 212 

200 PRINT AT 21,81" 

270 PRINT АТ 16,134" “AT 1 
7,154" "SAT 18,154" "y I 
NK Q1AT 17,123," "JU 

280 LET ST=ST-W 

290 FRINT AT 22,4,S5T;" " 

400 LET Р1=йї LET Р2жді LET P3= 
Jı LET P4=g; LET PS5=Ø 

412 LET Di=Ø1 LET D2=Øør LET Оза 
д: LET D4=d1 LET D3=Ø 

420 LET Hed: LET Ая2; LET Bad: 
GO SUB 1780 

459 LET Play 

440 LET Аш8і GO SUB 1789 

450 LET P2=V 

400 LET F=P1+FP21 IF P^Z21 AND РІ 
wil OR P>21 AND P2=11 THEN GO 5 
UB 720 

470 IF P=21 THEN GO TO 1950 

480 LET Hai: LET Ax18: GO SUB 1 
780 

490 LET Hag: LET Amwm245í GO SUB 1 
789 

500 LET A=21 LET DZ=V 

51Ø GO SUB 1989: LET G=F: LET D 
i-V: LET D=D1+D2: IF D>21 AND Di 
-11 OR D>21 AND D2eti THEN GO 5 
UB 990 

20 IF D=21 THEN LET As18: GO 
SUB 17991 GO TO 1950 

550 LET IN=Ø 

540 IF D2=11 THEN GQ SUB 152 

550 GO TO 850 

500 PRINT FLASH 1; INK ШАТ 21 
,93" HIT? (Y/N) " 

570 PAUSE Ø 

580 IF INKEYS="Y" THEN LET B=8 
: GO TO 652 

590 IF INKEY#<>"N" THEN GO TO 


800 PRINT INK Ф4АТ 16,11 "STAY 
ON ";Py" "JAT 21,91" 
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51d LET B=4 LET Amiga: LET F=G: 
GO SUB 1790; 

820 IF IN2@ AND V<>19 THEN GO 
SUB 1719 | 

63Ø IF P»21 THEN GO TO 1222 
540 GO TO 799 

6350 IF A-Z THEN LET Asg 

660 IF А=& THEN LET A=8 

870 IF A=9 THEN LET A=11 

689 LET B-8: GO SUB 1780 

90 IF A=3 THEN LET РТаУ: LET 
P=P+P3: GO TO 729 

708 IF A=6 THEN LET Р4шУ: LET 
PeP«P4: GO TO 722 

710 IF A=? THEN LET PSV: LET 
Pap+P%: GO TO 720 

720 IF P>21 AND Pis11 THEN LET 
Різі 

730 IF Р>21 AND P2=11 THEN LET 
P2=1 

74Ø IF Р>21 AND PZ=11 THEN LET 

та 

75d IF P>21 AND P4=11 THEN LET 
P4=1 

750 IF Р>21 AND PS=11 THEN LET 
Pam] 

770 LET P=P1+P2+PI+Pa+Ps 

788 GO TO 852 

799 GO SUB 1040 

809 GO SUB 900: LET B=8 

810 IF А=19 THEN LET A=21 

820 IF A422 THEN LET A=24 

8Z@ IF A€25 THEN LET A=27 

842 GO SUB 17891 GO TO 902 

850 PRINT AT 15,1;"YOU HAVE ";P 
850 IF B=4 THEN PRINT AT 16,22 
"I SHOW ";D2 

870 IF P=21 AND B=4 THEN 50 TO 
1959 

889 IF P>21 THEN GO TO 1129 
890 GO TO 549 

900 LET Бебі LET A=18: GO SUB I 
780 

910 LET D3=V: LET D=D+DZ: IF D> 
21 THEN GO SUB 99Ø 

920 GO SUB 1040: IF A=19 THEN 
LET A=21i GO SUB 1780 

920 LET D4ev1 LET D=D+D4í IF D> 
21 THEN GO SUB 999 

940 GO SUB 10401 IF A=22 THEN 
LET A=241 GO SUB 1780 

950 LET рУзе: LET D=D+D%: IF D> 
21 THEN GO SUB 999 

96d GO SUB 19401 IF A=25 THEN 
LET A=271 GO SUB 1780 

970 GO TO 1940 

980 IF INDØ THEN GO SUB 1710 
990 IF Di=11 THEN LET Disi 
1000 IF D2=11 THEN LET D2-1 
1010 IF 05911 THEN LET 0741 
1229 IF D4=11 THEN LET D4mi - 
1Ø3Ø IF DS=ii THEN LET DS=i 
1040 LET Ded: LET 0=01+02+05+04+ 
DS: PRINT AT 16,20;"I HAVE "Dı 
PAUSE 100 
1050 IF D=21 AND B=4 THEN GO TO 
1959 | 
1068 IF D>=17 THEN GO TO 1080 
1Ø7Ø RETURN 
1989 IF D»21 THEN GD TO 1172 
1090 IF D»-17 AND D<P THEN GO T 
0 1179 
1100 IF D>=17 AND P>D THEN GO T 
0 1179 
1118 IF D»P THEN GO TO 1130 
1120 IF D=P THEN GO SUB 1220. P 
RINT AT 17,14,"TIE": BEEP 1, 


-121 PAUSE 1201 LET ST=ST+wi GO 

TO 12ø9 

1120 GO SUB 1222 

1149 PRINT AT 14,15} "I ";AT 
18,143 "WIN"1 BEEP .3,1Ø 


1150 IF IN>Ø THEN GO TO 619 
1180 GO TO 1268 
1170 GO SUB 1220 
1180 PRINT АТ 16,14,"YQU 
"LAT 18,14, "WIN": BEEP . 5,22 
1199 LET ST=ST+2xXW 
1200 PRINT AT 20, 4;S8T 
1219 GO TO 1269 
1220 FOR N=15 TO 19 
1220 PRINT АТ М, 12; "ВЕН" 
1240 NEXT N 
1250 RETURN 
260 PRINT AT 19,19;" = 
"ЈАТ 28,105" "SAT 21,9 
1 PAPER 1; INK 9) FLASH 1;" TRY 
AGAIN? " 
1270 PAUSE à 
1280 IF INKEYS$s"N" THEN GO TO 1 
500 
1290 GO 70 20 
1300 PAPER 41 CLS 
1210 PRINT АТ 10,2; PAPER 2; INK 
9; BRIGHT 1;" OKAY--COME BACK А 
GAIN SOMETIME " 
1520 PAUSE 0 
1220 5ТОР 
1240 BORDER 5: PAFER 8: CLS 
1250 PRINT АТ 19,8; PAPER 2; INK 
9; BRIGHT 1;" YOU'RE BROKE--";A 
T 12,5; " COME BACK SOMETIME " 
12650 PAUSE 0 
1579 STOP 
1280 BORDER 5: PAPER 6: CLS 1 
1590 PRINT AT 9,91 INK 2; "р 
— s Ж 
1400 FOR М=1 TO ZZ: PRINT AT N,3 
1; INK 23" W": NEXT N 
1410 PRINT АТ 21,0% INK 2: "ыны 
ann = 4" 
1420 PRINT PAPER HAT LL LØP 
— T 2,10 "f BLACKJACK q: 
AT 2,102; "ia" 
143Ø PRINT AT 5,1: "THIS GAME OF 
BLACKJACK FOLLOWS";AT 7,8; " LAS 
VEGAS RULES." . 
1440 PRINT AT 9,10; "LIMIT = sigg 
1450 PRINT AT 11,4; "DEALER WIL 
L HOLD ON ""17""," 
1460 PRINT AT 13,44!" "BLACKJACK" 
"^ PAYS 2 FOR 2" 
1470 PRINT АТ 15,4) "BETS REFUNDE 
D ON A WUT TE f ita 
14680 PRINT AT 17,8; "YOU START WI 
TH з 200." 


1499 PRINT AT 28,10) PAPER 1; IN 
K 9% BRIGHT 1," GOOD LUCK " 

1500 PAUSE 0 

1510 GO TO 12 

1529 STOP 

1520 PRINT PAPER &fAT 18,191" D 
О YOU WANT "Ат 19,19," AN INSUR 
ANCE";AT 290,19," BET? (Y/N) " 
1549 PAUSE 9 

1250 IF INKEYS="N" THEN GO TO 1 
749 

1569 IF ІМКЕУЯ<>"Ү" THEN GO TO 
1349 

1570 GO SUB 1740 

1580 PRINT AT 18,19) PAPER "IN 
SURANCE ВЕТ"; АТ 2Ø,24p "2" 

1590 INPUT ІМ 
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1600 PRINT АТ 29,2Z2;"$ "JIN 
1619 LET ST=ST-IN 

1620 PRINT AT 20,4;ST;" " 

1550 GO SUB 1989: IF Væ1Ø THEN 

LET D=21: LET Ат18і GO SUB 17901 
GO TO 1659 

1649 RETURN 

1620 PRINT АТ 29,22," WINS " 

ЗАТ 21,9," "1 ВЕЕР. 
. 2Ø 

1660 LET ST=ST+2XIN 

1670 PRINT AT 28,4;ST;" " 

1580 LET ING 

1590 GO SUB 19952 

1700 GO TO 1720 

1710 PRINT AT 20,23," LOSES 
"SAT 21,93" "1 BEEP 1 


1720 LET IN=Ø 
1720 PAUSE 199 
1740 FOR K=18 TO 20 
1750 PRINT AT K,19j," 


1760 NEXT K 

1770 RETURN 

1780 GO SUB 1989 

1790 FOR Сзі TO 2 

1800 PRINT АТ B.A:"FJJJG" 

1810 FOR NeB«1 TO 5+5 

1820 PRINT AT N A"K к" 

1820 NEXT N 

1849 PRINT АТ B+4,A1"HJJJI" 

1850 NEXT C 

1840 BEEF .01,10 

1870 IF Hei THEN GO TO 1922 
1882 GO SUB 2000 

1899 PRINT AT B+i,A+i: INK XjAS( 

F.4);AT BeZ,A*1; INK ØrAS(F.2 TO 
I) AT B+5,A+3; INK XiA8(F,4) 
1900 LET AS(F,1)="1" 

1910 LET AæA+li RETURN 

1920 FOR N=B+1 TD В+5 

1930 PRINT AT N, A"K"; INK 11 "EE 

E"; INK ij "K" 

1949 NEXT Ni RETURN 

1950 FOR N=1 TO 8: PRINT BRIGHT 
1; FLASH 1) INK 21 PAPER &iAT 1 

9 " 1g 1 " ua a atu w. RE tan 1 AT 20 " 1004 st "BL 

ACKIACK aM J AT 21,10 "ettet tutum 
1 BEEP .2,20: BEEP .2,10: NEXT N 
1960 IF P=21 THEN LET WæINT ((3 

1W)/2)/21 GO TO 1170 

1970 IF D=21 THEN GO TO 1122 
1980 LET V-91 LET F=INT (RNDXS32) 

+1 

1990 IF AS(F,1)<>"Ø" THEN GO TO 
1989 

2000 LET X=Ø1 IF AS(F,4)="a" OR 

AS(F,4)m"D" THEN LET Ха2 

2010 IF AS(F,2 TO I)a" A" THEN 

LET V=11: RETURN 


2020 IF AS(F,2 TO 5) =" J" THEN 
LET V»101 RETURN 
2029 IF A$(F,2 TO 3)=" Q" THEN 
LET Уші0і RETURN 
2040 IF AS(F,2 TO Z)=" K" THEN 
LET Ушійі RETURN 2740 DATA ®, Ø, D, 255, 255, D, Ø, 2 
2050 LET V=VAL AS(F,2 TO ©) : 5 ТА 24,24,24,24,24,24, 24,2 
2969 RETURN 
2072 CLEAR 27689 REM ab c da £ ghi jk 
2080 DIM А8(52,4) 2770 REM A B C D E F 6 H 1 J K 
2090 LET AS(1)="9 AA" 2780 BORDER 7: PAPER 7: IN 1 
2100 LET As(Z2)="g 2А" LS í STOP 
2120 LET AS(4)="Ø 4A" NE 2629 
2150 LET AS(S)="9 SA" 2800 RUN 
2149 LET AS(6)="Ø 4A" 
2150 LET Aw(7)="@ 7А" 
2168 LET Ag(8)="9 ВА" 
2170 LET AS(9)="9 9A" 
2180 LET АФ (12) "01да" 
2190 LET АФ (11) ж"0 ЈА" 
200 LET АФ (12) ="0 GA" 
219 LET АФ (15) ="0 КА" 
2220 LET АФ (14) "2 AB" 
2250 LET а% (15) ="0 ZB" 
2240 (ЕТ АЯ (12) ="0 ZB" 
2250 LET А% (17) ="0 4B" 
2250 LET AS(18)="Ø ZB" 
2378 LET 4% (19) "0 6B" 


2700 DATA 02, 2,0,7, 15,12, 24,24 
2710 DATA 2,0,0, 192,240, 48, 24, 24 
2720 DATA 24,24, 12,15,7,0,0,0 
2750 DATA 24, 24, 48,240, 152,0,0,02 


MULTIPLICATION 


by John Coffey 


2280 LET А% (20) а"2 78" 55 80 7E 109: НЕМ Initialize 
2298 LET А% (21) "0 SB" 2 3 200: REH Question 
2200 LET AØ(22)=2"Ø 9B" 28 50 3 308: REM Answer 


2319 LET AS(23)="Ø1ØB" 
272Ø LET A$(24)="Ø JB" 
2320 LET AS(25)="Ø QB" 
2740 LET AS(25)="Ø KB" 
2350 LET AS(27)="9 AC" 
2700 LET А% (28) ="0 2С" RETURN 

2370 LET As(29)="Ø ЗС" 199 REM Questio 

2280 LET Аж (20) ="0 4С" 512 IF 10 100 THEN LET I0=100 
2290 LET AS$(Ji)="Øø SC" IF Бі<10 THEN LET hi=10 
2400 LET AS(32)="9 bC" 45 225: PRINT AT 3.18,"-9 = 
2410 LET AS(33)="Ø 7C" jo Te PAT OLIS MN ep 
2420 LET А% (54) ="0 GC" LES 

2438 LET А% (355) ="0 9C" 
2440 LET AS(3b)="ØLØC" 
2450 LET AS(37)="Ø JC" 
2480 LET AS(38)="Ø QC" 
2470 LET AS(3G)="Ø KC" 
2480 LET АФ (40) ="9 AD" 
2490 LET AS(41)="% 2D" 
2500 LET A$(42)="Ø ZD" š 


Want to olay 
am (1) а?у” OR 
TO 79 


MULTZZINT tlevele tl-Ane 


F=STRA (Mult leu .t 
270 BP LT AT 4.2, 1; s, 
x MUL; AT ; ; 
AT LL.O; "Tape 
me runs muri’ 


> 


у 
9. 


гъ.“ 
2510 LET AS(43)="Ø 4D" ЕРЕ 
252% LET А% (44) з" SD" 233 
2520 LET AS(45)="Ø D" 510 se 
2540 LET A$(46)="Ø 7D" 320 ET aszIMKE 
2550 LET 4% (47) ="0 9D" Ee 
2520 LET A$(48)="Ø 9D" 340 
2579 LET A8(49)="910D" 59 FRITT, 
2580 LET AS(SO)-"2 JD" p - 
2590 LET AS(S1)="9 QD" 355 Pause 
2500 LET AS(5Z)="Ø KD" 388 LET TSI 
2619 RETURN RETURN 
2628 RESTORE 1 FOR a=USR "a" TO REM Әгіпі anata ly 
USR "k"+7 TO LEM 5-1) 
2520 READ user: POKE a,user 


2640 NEXT 


ar GO TO 1389 


9 
110 IF LEM ceed 
ANC drs 9” 


THEN 


THEN LET 


2650 DATA 24, 40,126,255, 255, 126, 120 PRINT AT 8.0; 
50,24 E 

2660 DATA 28,28,8,107,127,107,8, REM Correct 

28 PRINT ' 

267Ø DATA 16,56,124,254, 254,254, PAUSE 190 - 

16,36 LET IO-IQ-l 

2580 DATA 192,255, 255, 255, 255, 12 RETURN 

6, 60,24 

2699 DATA 2Ø4,2Ø4,51,51,2Ø4, 24, 

51,51 
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Zebra Systems? 05-54 Cartridge 


by 


1. Kevin Paulsen 


METAMORPHOSIS 


The Fandom Housa Dictionary; entry number 


any complete change in appearance or 


ine Code routine 
rst time it 
e Ер the way 
re up the left 
Call 
third time 
side, 
routine under the BIGCHAR 
(Zebra Systems). 
own in the listing, 
values From 
are 8 зу 
variabl 
SU hav 


usa 


turns the 0564 character 
salled it will turn the 
that you would want them iF 
side of your display from 
again and the characters will 
and thay will appear ко be 


is 
ler 


(B. it 
іс 


right 


^ 
[4] 


routine 
The 
Use 
the 
aside 
he MC 
с aach rime 
amanda like 


- 


dæ 
ca 


эх - 
ow om O + 


y to d 
a co 


2 


nod 
сті 


ka 
2 
ы 
4 مم‎ 


т 


w 


3 

` 
er 
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ul 


13 u 
T 
ғу 
э 


^ T 
Woo 


m 


т 
іп 
ғұ 
"1 


33 
uY 
H 

ui 


9 
DU sr 
mJ 


f) 


er 
n 


a Буте 


m 


In] 


the 
bit 
From 


om char 
aut 


the 


acter set, 
into the carry 
carry Flag 


- 


Flag. 
into our  set-aside 
гкзрасе, 
orked all 
aracter ser, 
count Far 
worked On, 


59 


a 


3 bytes jump back to 42420. 


rhe tyres of the 


character 


42428 If we haven'* worked all 3 bytes jump back to 42413. 
62430 Next byte in character set, 


62431 Set count For 8 bytes to Бе transferred from our 
workspace back to the character set, 


62434 The last address or the workspace is set for transfer, 
62437 DO the transfer, 
62439 Calculate where we left off Working in the character set, 
624545 After the calculation retrieve the count of which 
character in the set we are working on, 2 

42466 If we've not worked all 74 characters jump back to 62610. 

448 RETurn to BASIC, 

Try it out, If you have any questions, suggestions, or 

comments Feel Free to write, AJ. Kevin Paulsen, 215 Mason ë lt., 


Sycamore, IL 960178. 


62435 LD DE, 38729 17,9, 128 
52408 LD 8,96 5,76 
52418 PUSH BC 197 
52411 LD 8.8 5,3 

2413 PUSH BC 197 
62414 LD 8,8 5,8 
52416 LD НЬ, 52585 33,196,243 
62419 LD À; (DED 2% 

62420 RLA Bs 

62421 RL (HL) 293,22 
52423 DEC HL $3 

52424 DJNZ -6 16,250 
62426 INC DE 15 

42427 POP BC 193 
62428 DJNZ -17 18,229 
52438 DEC DE 27 

62431 LD BC.8 1,8,2 
52435 LD HL, 62464 33,176,243 
52437 LDDR 237,134 
52539 LD 80.7 br? 
52442 EX DE, HL 258 
62443 ADD HL.8C 5 

sé EX DE, AL 235 
21555 POP BC 133 
22446 DJNZ -38 18.218 
92448 RET 231 


DEXTER ET SINISTER 


Here ага two Machine Code routaines that ALLOW you ко 
"scroll" your 056% screen to tne lert and whe right. 30th 
routines follow tha same basic рактагт, зо We Will gascribe only 
the left scroll in detail, Both оғ them сап be moved ко any 


place in memory you like, I'v9 Put them in the unused Attribute 
File for Display File one (DF1». IF you are going to POKE the 
values into memory, just sat up your FOR/NEXT loop to READ DATA 
lines that have the decimal numbers in the listing, There are a 
total of 39 bytes, 


This із the method I use to 2211 these routines, The 255% 
does not use the FLASH ог BRIGHT commands since there is no 
Attribute File ta alter, The commands have no effect but can 
Still be used іп å program line, Тыс varibles can be set equal 
to the addresses or the twa routines, for example: 
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LET LSLIDEs23075: LET RSLIDE-231*5*2 


Now you can state FLASH USR LSLIDE which will scroll the screen 
one column to the left, The USR function returns with G value 
of B 30 the statement is equivalent to FLASH 0. TO scroll to 
the right state FLASH USR RSLIDE. Tha variables паке it гаѕу +9 
remember how to call the МС and also lets you read your BASIC 
program Without trying to Figure out What all those USR 
addresses mean, 
Let's take a look at the LSLIDE listing, 


23096 The first 7 instructions clear column 0. Column 3g will 
be partly rolled around to column 43 and We want to be 
Sure that we're rolling in a blank column, Address 165334 


is the First in the Display File, 
22099 The next available byte in column B is 52 bytes away, 
22102 Zero is the number that will give us å clear coiümn, 
23194 There ага 1972bytes арып one column со count OFF 


23198 Clear the byte referred to су HL. 
23187 Calculate the next byte co be cleared. 
22188 Loop ғо 23106 until 211 172 bytes are cleared, 
23118 DFI starts ас 135s. 
23113 DF2 дс 235572 1211 сас numbered columns are stored nere). 
23115 There are 415% bytes in 2ach DF со deal with, 
23119 Pick up the byte rererred to by HL :DF2). 
23129 Put it іп Erna byte raferred зо by DE (ОРІ). 
23121 make DE refar со OFZ, 
23123 Мак HL refer to Gri. 
23125 Step Forward to the next byte in DFi. 
23126 Pick up the byte referred to by HL (DF1). 
23127 Put it in the byte referred tû by DE (ОРТО). 
23128 Make DE refer со DFL. 
22120 Make HL refer to OFS. 
221232 Step Forward to tha next byte in БЕ]. 
23122 Decrease the counter by i 
23134 Commit operationsthat will set the zero flag if Вс=ә. 
23136 IF BC does noc equal 2 zhe locP баск to 2 i7. 
23135 Clear аяга oyta has Drept inco the DF. 
23141 RETurn to SPILL, 
ды! The 61510777 цо, Daxter didn't вас anything sad, It's 
Latin and means Right and Lars, Any other questions. fae: free 
ro write me, J, Kevin Pulsen, 214 Mason Sour, 2ycamcre, Te 
50178 LeFT SCROLL 
125076 L HL, 1438% 35:19, 0= 
23182 LD А,0 52,49 
23194 LD 8,192 8.2192 
22106 LD (HL? -A 117 
23187 ADD HL, DE 25 
23108 DJINZ -& 16,252 
23110 LD DE, 1438% 17,0,6% 
23113 LD HL: 24576 53,80,95 
23118 LD ВС, 214+ 159,24 
23119 LD A, (HL) 126 
22120 LD (DE) Rñ 18 
23121 SET 5,0 203,234 
23123 RES S.H 203,172 
23125 INC HL 35 


A 
к 


23126 LD A, (HL) 126 

23127 LD (DE) Å 18 

23128 RES 5,0 283,170 

23138 SET 5,Н 203,226 

23132 INC DE 17 

23133 DEC BC il 

23134 LD AL 2 15 

23135 OR В 176 

23136 JR М2,-17 2,237 

23138 LD (308719) ,R 58.255.119? 

23141 RET 201 
RIGHT SCROLL 

23142 LD HL,54697 335,315.76 

23145 LD DE, 32 17.52.0 

23148 LD ASG 62,0 

25158 (0 8,172 5,172 

23152 LD (HU) A 117 

23153 ADD HL OE 25 

23154 DJNZ =4 16,252 

25156 LO DE, 387197 17,255,119 

25159 LD HL, 223207 33,255,837 

23182 LD Bl: iss 1.9.2. 

23165 LO ñ, (HU) 125 

23166 LD (DENNA 13 

23167 SET 5,Н 293, 236 

23169 RES 5.0 203,179 

23171 DEC HL +3 

23172 LD As (HL) 124 

25173 LD (DEI, ñ 18 

23174 RES 5,Н 293,172 

23174 SET 5,0 283,254 

23173 DES DE 27 

23179 OEC BC il 

231389 LD 5,2 i21 

23181 oR B 174 

23182 ӘК NZ.-1i7 32,227 

235184 RET 291 


и 


HOORAY FOR HISOFT 
by Jack Dohany 


The author has no connection with HISOFT other than enthusiastic 
admiration. 


HISØFT is a British firm that produces premium utility software 
for the Spectrum family of machines. In my opinion, their stuff 
is the best of its kind. Therefore, I'd like to see their wares 
get better recognition and distribution in this country. 


They alse support GL, Amstrad, Amiga, and Atari ST. But in this 
article I'll focus on their Spectrum products only. 


The best way to get HISÜFT software is to order it directly from 
them. Postage to England is 37 cents, and getting what you order 
usually takes less than 2 weeks. You can pay with personal 
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check; include extra $$ for currency conversion. 
VISA is easier; just say in your letter: 
. Please charge to my VISA % KXMMXMYNNNMXXNXNNXNX, Exp: XX/XX/XX. 


All HISOFTware will run on 2068 only with Spectrum emulator. 
Unfortunately, HISOFT are not interested in producing 2068 
versions. I feel this could change IF many users from this 
Country were to write them and beg for 2068 versions. 


HISOFT did produce a 2063 version af DEVPAC. It had a single bug 
which I have corrected. They have since WITHDRAWN this version 
and will not fill orders for it. But I will send it to any legal 
DEVPAC owners who want it. 


HISOFT stuff is all completely in machine-code. It is 
copyrighted, but NOT copy-protected. The excellent documentation 
always tells you how tco make a backup. The software always has 
provision for returning to BASIC. HISOFT are continuously 
improving their software. They have a firm committment to 
excellence in their products and support. 


So, what do they make, and what's so great about it? in this 
article I can't describe each program fully, but I will list all 
— Spectrum products at the end, and focus today on DEVPAC. 

If you have no interest in assembly language, then what foliows 
may have little relevance for уси. 


E E J€ Je Je 3e 3€ 96 KE HE 


DEVPAC is, in my not very humble opinion, the most useful 
assembler/disassembler available for our machines. ZEUS is a tay 
in comparison. 


- I believe that even beginning students cf assembly language 
should have the best tools possible on hand. This holds for 
Carpentry, writing, cr any craft: weak tools do nat serve the 
novice weil. 

DEVPAC is two separate programs: GEN (the assembler) and MON 
(the disassembler/debugger). Each is fully relocatable, that is, 
it can be loaded at any sensible location in memory. GEN is 
about ЭК long, and MON is about 6K long. 


GEN s editor is used to write a "source file". This is a compact 
ASCII textfile containing labels, 75@ mnemonics and comments. 
This is also true of ZEUS, and in fact ZEUS's full-screen editor 
at first seems easier ta use than GEN's line editcr. But 
numerous features make the GEN editor actually far mare useful 
than the ZEUS editor. 


Once you have written a source file, or loaded one, you can 
"assemble" that source file into "object code", that is, the 
desired result of what you are really doing: writing a 
machine-code program "in English". Here too, ZEUS and GEN do the 
same thing: translate your source file into object code. 

But GEN allows some very useful options during the assembly 
process which ZEUS does nat. 


First, there are a whole heap af "special commands" you can put 

into the source file, analogous to Mscript's format commands. 

For example, you can load and assemble source directly from tape 
—————————————————————————————————————————Á—— sa 
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during assembly. Thus you can deal with very large source files 
that would not fit into memory. 


Second, you can control where the "output listing" goes during 
assembly: ta the screen or not, to the printer or not, to memory 
or not, to tape or not. ZEUS has no such thing as an output 
listing: a grievous omission. Also, with GEN you can control the 
degree of error-checking, which governs the speed of assembly. 
You can generate a "dummy" assembly, purely for the purpose of 
error-checking, without actually generating any object code. 


With GEN, in other words, YOU are in full control, and you are 
not subject to the whim of the person who wrote the program, as 
you are with ZEUS. I cannot possibly describe all the options 


allowed by GEN, and their usefulness to the programmer, in this 
brief article. 


de 3c dc dc 3€ 3€ € 


MON is the DEVPAC disassembler. ZEUS does not include a 
disassembler; it must be purchased separately. 


Like GEN, MON is fully relocatable and can be loaded anywhere 
there's RAM space for it. You can have GEN and MON in memory at 
once; they operate independently. 


MON has full-screen comprehensive debugging facilities similar 
to HOT-Z. Because MON was designed for Spectrum and lacks 
bank—switching facilities, HOT-Z is a better DEBUGGER for the 
2068. But it is not a better assembler or disassembler. 


The MON disassembler allows you to disassemble an unknown 
machine-cade program into memory аз a GEN-compatible source file 
WITH LABELS. Thus you can "re-source" MC programs... an 
extremely important capability. Furthermore, you can "exclude" 
from disassembly as many sections af the code as you like. 
Excluded sections are not forgotten, but are included as DEFB's 
rather than as 780 opcodes. This allows you to make a fairly 
intelligent disassembly which can then be operated on with GEN. 


dXX HE 


I've written a number of utili*ies which extend the usefulness 
of GEN. For example, TEXTMAKER sends GEN assembler output 
listing tc memory in MSCRIPT textfile format; this is how the 
Customized Mscript source-textfiles were made. Then there's ZG 
and GZ, ta convert Zeus source files into GEN format and 
vice-versa. If you own DEVFAC and need any sof these utilities, 
just hoiler. 


33636 € 3€ 96 4€ 


The latest version of DEVPAC as cf April 1987 is V4. It has many 
new features that V3 lacked, including a HELP screen and 
Si-Column text on screen. The 2068 version.of DEVPAC is 


essentially VZ. I plan to adapt V4 to 2068, in the fullness of 
time, since HISOFT has at present no interest in doing so. 


All HISOFT software is microdrive hook-code compatible. The 
importance of this (particularly for C and PASCAL) may be lost 
on American users who mostly do not have microdrives, and whose 
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various mass-storage devices are NOT micradrive hook-code 
compatible. I know of only one English disc system that's 
completely compatible: The Disciple. 


The importance of such compatibility is this: that ANY software 
(whether code or BASIC) which accesses micradrive (NOT A&J, but 
Sinclair) will work equally well with disc or microdrive. And 
with microdrive, the size of a file is limited not by memory, 
but by external media (wafer or disc). Thus HISOFT source files 
(DEVPAC, C or PASCAL) can be simply enormous using microdrive or 
Disciple disc. This gives our little machines BIG capabilities. 


Here piease realize that a source file is usually at least 10 
times as big as the object code it generates, even without 
comments. Thus an SK object file is generated by a source file 
of at least BØK. Of course large MC programs can be generated in 
blocks from smaller sources, but this method is tedious and 
error-prane. That is apparently how the TIMEX ROM was done. 

The resultant code is not elegant, harmonious or cohesive. It 
has numerous well-hidden bugs, and it just barely works. 


Anyhow, HISOFT is writing stuff as it SHOULD be written, so 
Hooray for Hisoft! Support (also) your non-local software firm. 
HISOFT'S name derives from: HIgh quality SOFTware... and when 
they coined the name, they lived on High Street. Their current 
address: 


HISOFT 

The Old Schocl 

Greenfield, Bedford Tel. (052292) 718181 
England MK45 SDE Cantact: Adam Denning 


I picture HISOFT folks as pale reclusive geniuses living and 
working in a ramshackle abandoned schoolhouse just beyond a 
small town. In some dusty corner lies a forgotten 2068... 


«x HISOFT PRODUCT LIST FOR SPECTRUM d339dJdÀÉ- 
PROGRAM PRICE (pounds / dollars) 
DEVPAC 14.ØØ / $232.00 


-—DEVelopment PACkage: a powerful relocatable 
Z8Ø assembler and disassembler/debugger. 


C COMPILER 22.00 / $356.00 
PASCAL COMPILER 22.00 / $36.00 
BASIC COMPILER 22.00 / $36.00 


—comprehensive, fast floating-point 


THE COLT 9.00 / $15.00 
—a simple fast BASIC integer compiler 


ULTRAKIT 8.50 / $14.98 
—a fine BASIC toolkit 


Notes: C and Pascal are high-level languages like BASIC. The 
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programmer programs in something like English. But C and Pascal 
are much more flexible and powerful than BASIC. 


C and Pascal are not nearly as easy to use as BASIC. In fact I 
consider both tc be much harder to learn than assembly language. 


C and Pascal are for very intelligent and serious programmers. p 
That leaves me out; how about you? I'm sure there MUST be some 

Sinclair folks out there who are bright enough to use C and 

Pascal effectively. C and Pascal programs run much faster than = 
BASIC programs, though not as fast as "pure" machine-code. They 
also take up quite a bit of "minimum—-room" in memory, though a 
big C or Pascal program would ultimately take up LESS room than 
an equivalent BASIC program. 


Adapting C or Pascal to run on 2068 is something I contemplate 
with nothing but fear and lcathing. HISOFT could do it with 
relative ease, if they were motivated ta do it. So let's 
motivate them! Fah Fah Zis Boom Hah! Let “ет know we're here! 


»A g т 


Pi gu på <a 
i A: MAX HEADROOM 
by Michael E Carver 


W-W-Welcome to the world of M-M-M-Max Headroom! In case you have 
been away from the planet for a while. .2. Мах Headroom is а 
computer-synthesized TV announcer, wha nas gained world-wide 
stardom. As the player, you take on the role of TV newshound, 
Edison Carter, in his quest to retrieve the Max Module now in the 
hands of Network 23. The game is billed as another 
arcade/adventure, though most of the emphasis is on the arcade 
action, with only a smattering of adventure. To aid in your 
search, you have access to the Maxhunter, which is tapped into 
the central computer, controlling operations and security in the 
NET23 building. 


Your first task is to gain access to the top floors (floors 
200-211) via the lift (elevator) system. Various memos have been 
lifted from the NET23 computer, to aid in your quest. These 
memos form the instructions included on the inlay provided. Due 
to a newly installed security system, this can be difficult to 
achieve. Once the lift system has been mastered, one must pass 
Another security test to gain access to the otfices on each 
floor, where various codes are located. To hamper your search, 
each floor is guarded by armed robots plugs the vicious thugs, 
Breugel and Mahler. Control is via keyboard (which is definable) 
or joystick. I found control from the keyboard easier, as some 
tasks involve quick and accurate control of a cursor. The 
joystick seemed to be sloppy and inaccurate. 


A portion of the screen is devoted to a 3-D view of the action. 
The graphics are adequate, but are basically line drawings of 
office walis, desks and characters. Once the main objective of 
the game is accomplished, one can load the second portion of the 
game. This part is an animated hax Headroom, providing a victory 
Speech via synthesized speech, using the beep command. Though it 
is fasinating to hear that little beep try to speak, it is also a 
bit difficult to understand. 


If you are a Dig Max fan, you will probably wish to give this 
Same a try. I found myself continually trying to reach the finali 
goal. The last puzzle ieft me baffled for quite some time. Even 
though the action is very repetitive, I strived for the final 
glory. Once the Same is completed, the challange is gone, and I 
doubt many would find themselves going back to it very often. 


Max Headroom is available from Curry Computer for 916.975. 


Orders to Curry Computer can be mailed to PO Box 5607, Glendale, 
AZ 83312-3607, or by calling 1-800-628-2828 ext. 950 24 hours a 
day and 7 days a week. 
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LIGHT PENS 


by Duncan Teague 


In a previous article I summarized the pros and cons of the 
different means of Spectrum emulation. One of the emulators, the 
Rainbow Plus Interface, has a singular advantage. Its Spectrum 
through-connector allows the use of Spectrum peripherals on a 
T/S 2068. One of the Spectrum peripherals I used to test this 
feature of the Rainbow Plus was the DK’Tronics Light Pen. Since 
I also own the Zebra Systems Light Pen, I”11 compare the two. 

One feature light pens have in common is the necessity of 
calibrating them to function properly with your system. The 
procedure is simple. You point the pen at å designated point on 
the screen, watch the screen for feedback from the computer, and 
them make "adjustments" as necessary until the readings .-are 
optimum for your system. 

During this procedure, the computer, the software, and the 
light pen work in. concert to take readings from the screen. They 
measure the timing of the beam of light that sweeps across the 
screen to make the picture. The precise time the beam of light 
is detected by the light pen tells the computer the coordinates 
of the point on the screen. 

The intensity of the light and the contrast between light 
and dark on your screen affect the function of the light pen. 
Once the light pen is calibrated, the brightness and contrast of 
the screen should not be changed. 

Both light pens plug into an interface which in turn plugs 
into the computer. The interface for the OK’Tronics unit 
attaches to the Rainbow Plus оп 2086876 or directly into the edge 
connector on Spectrums. The interface for the Zebra Light Pen 
plugs into the.cassette input port. The major difference between 
the two devices is best illustrated by the sophistication of the 
accompanying software. 

The demonstration program with the Zebra Light Pen includes 
two routines, both of which use the light pen as a substitute 
for the Keyboard to make "menu" type selections from the screen. 
The pen is pointed at a flashing square. This is comparable to 
using the INKEY$ function with the keyboard. Resolution is thus 
one character cell and reliability is about 854. 

The DK’Tronics software is a drawing program capable of one 
pixel resolution. Thus, theoretically, the resolution of the 
DK'Tronics Light Pen is (8*8=) 64 times that of the Zebra Light 
Pen. In practice it is very difficult to aim the blunt end of 
the light pen with any precision. 

The DK’Tronics drawing program has sixteen functions. They 
include routines for designating "origin" and "target" points 
for drawing precise arcs, circles, lines, and rectangles; 
sketching free-form figures; "filling" enclosed areas; and 
erasing what you’ve drawn. Other routines are provided for 
adding text from the Keyboard, changing screen color attributes, 
storing to and recalling screens from both memory and tape, and 
clearing the work area. 
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The light pen is used to select routines from a menu at the 
bottom of the screen, below the work area. The menu is comprised 
of sixteen squares, above which appear the initial letters of 
the various functions. When using the routines, a thicK black 
band, which "determinelsl the position of pen," obscures the 
part of the screen on which you want to draw. This artifact of 
the program’s operation combined with the difficulty of accurate 


positioning of the light pen make drawing a Herculean task. 

The documentation for the Zebra Light Pen is as limited as 
the software. There is, however, a BASIC program listing of the 
calibration procedure, and the demonstration program is all in 


BASIC and available for study. 

The manual for the DK’Tronics Light Pen is more thorough. 
It includes instructions for saving both the "menu selection" 
and the "drawing routine" portions of the software’s machine 
code for use within your own BASIC programs. 

I found the Zebra Light Pen worked better on a black and 
white television set than on a color monitor. The reverse is 
true of the OK’Tronics Light Pen. Both have a common drawback. I 
find that my arm gets tired from constantly holding up the light 
pen to the screen. 

Both showed promise, but both fall short of being practical 
tools. The Zebra Light Pen software is limited in its scope. The 
DK’Tronics Light Pen software is more ambitious, but it is 
difficult to obtain desirable results with the drawing program. 
It would be difficult for me to recommend either for other than 
experimental purposes or as å novel ty. 


DK’tronics Ltd., Unit 6, Shire Hill Industrial Estate, Saffron 
Walden, Essex CB11 3AM, U.K. 


Zebra Systems Inc., 78-06 Jamaica Ave., Woodhaven, NY 11421 


FAIRLIGHT 
{a program by Bo Jangeborg) 


reviewed by Michael E. Carver 


This game is one of the best of the Arcade/Adventure genre. 
Fairlight was written by the author of the Artist (see 
March/April 1986 Time Designs). It is a 3-dimensional real-time 
adventure. The method used to create this animated world is 
described as "The 3-D Worldmaker Technique”. The graphics were 
drawn with an updated version of the Artist (which is now 
available as Artist 2). To avoid attribute bleeds, all screens 
are monochrome, with separate colors used for different areas of 
the game world. The world created with this technique is quite 
impressive. Most of the objects encountered сап Бе pushed, 
picked-up, or stacked. Each item has its own characteristics 
(weight, momentum and sometimes intelligence). As the player, 
you manipulate the character Isvar and are allowed to carry up to 
five items, depending on weight. 
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The goal of the adventure is to locate the "Book of Light", which 
was hidden in the Castle Avars. The castle is protected by magic 
and magical beings. By locating the book and presenting it to 
the imprisoned sorcerer, magic will be restored to the world. 
Of course, you are trapped in the castle and returning the book 
is your only hope of escaping. The castle contains several 
leveis of rooms, courtyards and, of course, dungeons and caves -- 
all of which are wonderfully presented in a 3-D view. The action 
is viewed from a "ceiling-corner-view". Control is via keyboard 
(groups of keys for movement, tighting, manipulating objects, 
etc.) or with a Kempston-compatible joystick. Keyboard control 
is quite responsive, though confusing at times, as the character 
moves diagonally across the screen/room. 


As Isvar explores the castle in search of the Book of Light, he 
must fight guards, trolls and avoid "magical" beings, which 
cannot be fought. The fighting is done by sword stabs, and the 
action of Isvar and the guards is enjoyable to watch. The 
puzzles encountered range from easy to difficult (some of which I 
am still struggling with). There are hidden rooms and items 
which have some magical use. As Isvar battles or comes in contact 
with deadly magical forces, his strength is decreased and he must 
locate food or magic elixirs to restore his strength. Many hours 
will be spent just exploring the castle and its contents, while 
trying to survive the "traps". Many more will be spent trying to 
put all of the pieces together. 


Fairlight is a very enjoyable package, a must for those who like 
a good mix of adventure with their arcade action. The loading 
screen is one of the best pieces of art I have seen produced 
with the Spectrum. Along with the opening music (via beep), it 
is well worth loading, just for this introduction. There are å 
few minor drawbacks with the program. The first is common with 
all such type games -- the slowing down of action when many 
objects are animated at one time on the screen. The other 
problem is more a result of the fine detail in the graphics. A 
few items may not be easily recognized, unless one is using a 
monitor. 


The program is packaged in a pocket sized plastic case with a 
booklet explaining the "rules" and a brief story to set the 
stage. The program is available from Curry Computee for 4517.95. 


SPITFIRE 40 


by Dennis Silvestri 


SPITFIRE 40 IS A FLIGHT SIMULATION PROGRAM FOR THE SPECTRUM 


EQUIPPTED T/S 2668 COMPUTER. 
THIS PROGRAM SIMULATES THE FLYING AND COMBAT TECHNIQUE OF THE 
FAMOUS WW2 BRITISH FIGHTER PLANE. YOUR ULTIMATE GOAL IS TO RIBE 
THROUGH THE RANKS TO ACHIEVE THE TITLE OF GROUP CAPTAIN AND 
EARN VARIOUS MILITARY MEDALS. THERE ARE THREE AREAS TO CHOOSE 
FROM, PRACTICE, COMBAT PRACTICE, AND FULL COMBAT. EACH AREA HAS 
VARIOUS SKILL LEVELS THAT YOU CAN ADVANCE TO. 

YOU ARE GIVEN 


IN THE PRACTICE MODE THE OPPORTUNITY TO GET 


FAMILIAR WITH FLYING THE AIRCRAFT. YOU CAN TAKE OFF AND LAND AT 
DIFFERENT AIRFIELDS AND GENERALLY GET THE FEEL FOR FLYING. 

COMBAT PRACTICE ALLOWS YOU TO MANEUVER THE AIRCRAFT IN Å COMBAT 
SITUATION, IN WHICH YOU CAN 8HOOT 


DOWN ENEMY PLANES WITHOUT 


BEING SHOT DOWN BY RETURN FIRE. FULL COMBAT 18 WHERE YOU 


SCRAMBLE THE SPITFIRE FROM AN AIRFIELD AND GO ONTO INTERCEPT 
ENEMY AIRCRAFT. IN THIS MODE ENEMY AIRCRAFT RETURN FIRE. 
IN THE PRACTICE AND FULL COMBAT MODE YOUR FLYING TIME AND THE 
NUMBER OF VICTORIES ARE RECORDED AND CAN BE SAVED, BUT ONLY IF 
YOU RETURN AND SAFELY LAND AT AN AIRFIELD. THIS CAN BE LOADED 
BACK INTO THE MAIN PROGRAM AND ALLOWS FOR THE BUILD UP OF 
VICTORIES AND FLYING TIME WHICH ARE REQUIRED IF ONE 18 TO REACH 
THE ULTIMATE GOAL. 

UNLIKE OTHER FLIGHT SIMULATION PROGRAMS THAT GIVE INSTRUMENT 
READINGS AND A VIEW OUT THE COCKPIT GN ONE SCREEN, GPITFIRE 40 
HAS ONE SCREEN FOR A VIEW OF INSTRUMENTS ONLY WHICH INCLUDE: 
FUEL GAUGE, AIR SPEED, ARTIFICIAL HORIZON, ENGINE RPM,VSI,SLIP AND 
TURN, COMPASS, ALTIMETER, RUDDER INDICATOR, FLAPS, LANDING GEAR, 
BRAKES,AND PITCH INDICATOR AND A SEPARATE SCREEN FOR A VIEW OUT 


THE COCKPIT. 


WITH THIS PROGRAM I FAVOR THE SEPARATE SCREENS. THE INSTRUMENT 
VIEW IS LARGER, MORE CLEARER, AND EASIER TO READ. THE VIEW OUT 


THE COCKPIT IS ALSO LARGER AND CLEARER, SWITCHING BETWEEN 


SCREENS CAN BE DONE AT ANY TIME WITH THE SPACE BAR. THERE Ig 
ALSO A THIRD SCREEN WHICH GIVES THE AIRCRAFTS POSITION RELATIVE 


TO THE GROUND AND TO ENEMY AIRCRAFT, 


Å 


Bern 


LLU s 2 


= Ben Nr ИИ сл ст, 2 


THE COLOR GRAPHICS ARE VERY GOOD,ESPECIALLY WHEN ENEMY 


ARE IN FRONT OF YOU, THEY CLIMB, DIVE, BANK, TURN, AND EVEN ROLL OUT 


AIRCRAFT 


TO AVOID BEING SHOT DOWN AND THEY ARE CLEARLY VISIBLE АЗ 


AIRCRAFT. THERE IS EVEN Å REAR VIEW MIRROR IN THE COCKPIT VIEW 
IN WHICH ENEMY AIRCRAFT APPEAR WHEN THEY ARE ON YOUR TAIL. 

SQUND GENERATION IS ALSO GOOD,BEING GUPPLIED BY MACHINE GUN FIRE, 
ENGINE REVS AS SPEED IS INCREASED OR DECREASED,EVEN THE CHIRPING 
OF TIRES ON THE GROUND AS YOU LAND AND APPLY 


THE BRAKEB. SOME 


UNUSUAL SOUNDS OCCUR IF YOU ARE SHOT DOWN OR CRASH INTO THE 


GROUND. THIS PROGRAM USES JOYSTICK CONTROL AB WELL AS THE 
KEYBOARD, AND А KEMPSTON OR KEMPSTON COMPATIBLE INTERFACE IS 
REQUIRED. TO USE A JOYSTICK. 

SPITFIRE 40 18 DEFINITELY WORTHY OF PERSEVERANCE AND MOST 
REALISTICALLY GIVES YOU THE SENSE OF BEING IN THE COCKPIT, IT 
COMES WITH COMPLETE AND EASY TO UNDERSTAND DOCUMENTATION WHICH 
ALSO INCLUDES A BRIEF HISTORICAL BACKGROUND ON THIS FAMOUS 
AIRCRAFT. ALSO INCLUDED IS INFORMATION ON THE THEORY OF FLIGHT. 
THIS PROGRAM IS AVAILBLE FROM SPEEDYSOFT FOR £ 9.95 PLUS £ 2.00 
SHIPPING. (THIS 18 BRITISH POUNDS) APPROXIMATELY $ 18.00 0.8. 
DOLLARS WHEN I ORDERED IT. 

ANYONE WITH A SPECTRUM EQUIPPED 2068 WHO 15 NOT FAMILIAR WITH 


SPEEDYSOFT SHOULD SEND FOR THEIR CATALOG. THEY HAVE MANY 
PROFESSIONAL AND GAMES PROGRAMS TO CHOOSE FROM. THEY ALSO GIVE 
SUPERIOR SERVICE. THEIR COMPLETE ADDRESS IS: 
SPEEDYSOFT 
THE BLACKSMITHS,RADNAGE COMMON, BUCK INGHAMSHIRE 


HP 14 4DH, ENGLAND 
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TT of me 


AL GORNER 


by M. Vincent Lyon 


= INTRODUCTION 


was originally å series of columns 

by Vince Lyon and published in "The 

Еле newsletter of the Clactanas County 

ea Timex Sinclair Users Group of Oregon. The 

zriet was first introduced іл March 41986 and ran 
7211 Cho December 1996 Issue. 

We have reprinted the carias in part hare with 
generous permission From the author. The original 
——ayput has been slightly re-arranged and edited to 

ft into å tutorial lesson forsat. The series is an 
acellant introduction and study of QL programming 
carcapts. - 7. Woods 


written 
Piotter*, 


— 


LESSON NUMBER ONE 


It may seem logical that the best place to 
begin a tutorial on the RL, would be a simple 
“planation of the basic differences between the GL 

1d other Sinclair computers. Since, however, the RL 
3 based on a new chip with new programming concepts 
and commands, the QL does not even look like а 
distant cousin of the 2068, nor appear to come from 


зе game galaxy as the ZX81, There is, simply no 
par tson. 
A quick look at the program below clearly 


demonstrates this new, unique personality on the QL. 

Ав you will notice, the main loop of the program is 

”Taly {four lines long, and the majority of the 
emainder is a collection of defined procedures and 
anctions that are called by name from the loop. 

This ability to define any procedure and call 
it at will, by name is truly a Quantum Leap over 
— 68 BASIC. It is, to me, the single most exciting 

ddition to the QL. 

Although the program isn't meant to do anything 
fantastic, it does serve to demonstrate å few of the 
new commands that are available to the programmer. 
7^ the example "FILLS" fills window #1 with periods 

mich serve no purpose other than to prove that as 


ле moves the cursor around, the periods are not 
erased. 
The remainder of the program prints a 


7^rass-hair cursor оп the screen which can be moved 
bout by use of the cursor keys. The keys аге read 
^ "keyread", the position is updated in "position" 
and the cursor drawn in "Ine" (since LINE is a QL 


command, it could not be used). 
TI Let's look at a few of the new commands 
sed in this program: 
OVER-1 - This command reverses the pixels at 
the print location. In this example, it permits the 
cursor to move about without overwriting screen 
ata. 


LINE - No longer a DRAW command, 
«ser to draw a line from one specific pixel 
ta another. 
— Local 


LINE permits a 
location 


- Allows a user to set up a variable for 
se ONLY within a DEFined procedure. If the same 
ariable is used within the main program, it will 

„ot alter the variable in the DEFined procedure (and 
vice-versa). 

— THEN RETurn x 
hen let y=1. 

Well, those are a few of the 
-m this short sample program, and 
mare yet to explore (at least 
examples, however, clearly help me 
oncept that the QL is indeed unique, with little 
hat appears related to the 2058. If one were to 
.-ї®һ to convert this program to run on the 2068, it 
wculd be at least twice as long and much slawer. 

— If you have a GL, enter and test the program. 

f you have a TS2068, try to convert it. 


- A nifty, fast way to say if x«l 


new commands used 
there are many 
23). These few 
to establish the 


LET a=5Ø:b=50:s=9 
PAPER Ø:=INK 7: BORDER 0,0:CLS 
PRINT FILLS (",",665) 


Ine:disp:wprint 


100 
— 110 
120 


150 


51 


140 
150 
140 
170 
180 
190 
200 
210 
220 
250 
248 
258 


268 


270 
280 
290 
500 
510 
520 
550 
540 
550 
368 
370 
580 
590 
ада 
410 
420 
450 
440 
450 
468 
470 
480 
490 
5009 


51Ø: 


520 
5504 
540 
550 
560 
579 
580 
590 
600 
640 
650 
660 
578 


б 
29, 
< 
o 


REMark ------ MARK LOOP 
REPeat loop 

Position 

IF s=1 THEN EXIT loop 
END REPeat loop 

KEMark ----- END MAIN LOOF--- 
STOP 
КЕМаг к 
DEFine PRICedure lne 
REMar К 
OVER- 1 
LINE a,b TO a+1Ø,b:LINE а+15, 

b TO a+25,b 

LINE a+12,b-12 TO a+12,b-2: LINE 
a+12,b+2 TO a+12,b+12 


OVER Ø 

END DEfine 

REMark ---------------------- 
DEFine FUNction keyread 
КЕМагк ---------------------- 
LOCal (4% 

REPeat loop 


LET а%-ІМКЕУҮ%(-1) 


IF q$=CHR$ (192) THEN RETurn 1 
IF q$=CHR$ (200) THEN RETurn 2 
IF qf=CHR$(2Ø8) Then RETurn 5 
IF q$-CHR£$(216) THEN KETurn 4 
IF q#=CHR# (248) THEN RETurn 5 


END REPeat loop 
END DEFine 
REMark 
DEFine PROCedure Position 
KEMark 
LOCal x 
REPeat options 

x-keyread 

SELect ON x 

=l:lne:LET a-a-1:1ne:wprint 
=2:1пе: ЕТ a=a+i:lne:wprint 
=3:lne:LET b=b+i:lne:wprint 
=4:lne:LET b-b-1:1ne:wprint 
=S:LET s=1i:RETurn 

END SELect 

END REFeat options 

END DEFine 

КЕМаг к 
DEFine 
REMar К 
WINDOW %2,110,10,200,175 


DEFine FROCedure wprint 
REMark ---------------------- 
PRINT #2," "gaz" ";b 


END DEFine 


LESSON NUMBER TWO 


You probably would 
programs for your AL. 
adventure game. BUT, 
chore. 

Suppose you wanted the screen to display 
everything the pilot would see: 1) a center video 
display which can face fore or aft on command, 2) an 
overhead console which reports on weapon status, 3) 
a small panel on the right center which shows aiming 
reports and target range, and 4) a below screen 
panel which reports on fuel, range from base, life 
support systems, etc. 

If you have anything besides a GL, 
better get out your manual on Machine Code. 
multi-tasking QL, however, 
real snap. 

On the GL one can set up all the windows in 
advance (we could use a DEFine PROCedure), and can 
print to any window and data or calculation result. 
Each window can be a color, paper and ink, a 
different size with a different border, and can 
print in character sized and designed strictly for 
it. 


like to write some special 
Maybe even a space arcade or 
designing the screen is a real 


then you 
With the 
this screen display is a 


The program below shows some simple 
designs with different colars and borders, I didn't 
use the full range of ali the available character 
sizes, because I am sure you will want to experiment 
with the defined windows. 


Window 


5 MODE 4&$:VINDOU Н1.500,250,0,0,:С015 
#1 

10 WINDOW 01,450, 150,30,0, : BORDER 
KL: 1: 7:CSIZE #1,2,0:PAPER K1.15,:CLS 
с8 WINDOW 88,45450,30,30,155:PAPER 
&0,0:CSIZE K0.0,0:PAFER #@,5: INK 
H@,@: BORDER H0,1,7:CLS #0 

50 CLS B81:CUS 88 

LA INPUT #6; "enter your nome *';,zf 
58 PRINT "HELLO "42% 


As you may note, 


is re-designed by Line #10. 
previously detined windows. 


screen 
printing windows of 
screen locations. 
the input window. 
will be 
space 


game, you will 


is cleared of all 
The rest of the program 


is just a 
different 
that window #0 is always 
When the program ends, 
in that window. 

If you don’t want to write the world’s 
find useful applications 


Remember, 


still 


52 PAUSE 1268 
PRINT ХАУА” G00DBY 
+ PAUSE 120 
55 MODE 4:WINDOW %,500,250,0,0:С015 


"5 z$ 


68 BORDER 81.0,0:С15 

79 WINDOW H1:440,100.30:0:PAPER 
#1,2:BORDER #ñ1,1,3:CSIZE #1,2,0:CLS 
EQ WINDOW H0,440.100,10.,105: PAPER 
HO.G:INKHG,7:CSIZE #G,0, Ü 

SQ INPUT #0; "Enter your name *;zt£ 


188 PRINT "HELLO "32% 

118 PAUSE 129 

128 PRINT NNN*"GOODBY ';z$ 

129 PAUSE 128 

135 MODE 4: WINDOW H1.5060,250,0,0:0CL5 
#1 

1480 WINDOW H1,2080,188,38,G6:BORDEFR 


#1,1,7:CSIZE #€1,2,8 

156 WINDOW H2,238.180,240.0:PAPER 
RO,O:B0RCOR #2,1,7:0L95 HO 

158 WINDOW HOG,4540,75.30,100:BORDER 
#O,1,7:PAPER #6,2: INK #8,46:CSIZE 
яс,0,0:С15 #G 


178 INPUT MANN Enter your name ';z$ 
175 PRINT BØNNNNNNANNNN 

186 PRINT "well ";z$\\ "meet my 
WindcwE'\\*this if #1." 

188 PRINT ШШ: "this is window #2” 
196 PRINT BO; "and this is window #2 


¿the input window?" 


Line #5 sets up a window which 
That 


is to make sure the 


demonstration of 
sizes at different 


the cursor 


greatest 


for windows in business and game programs. 


LESSON NUMBER THREE 


I have heard from some 
programs thus far printed did 
screen as intended. Since most 
are running on TVs and not 
programs have been designed for 
you enter this program, 
mode. You can 
wish, 

This months program is just a fun 
the turtle graphics. 


individuals that the 
not appear on the 
of the Біз out there 
monitors, all the 
a TV display. Before 
make sure that you are in TV 
always re-design the program if you 


little demo of 
As anyone who has experimented 
with turtle graphics can attest, this isn't a true 
example of the full capabilities of that turtle. 
But, it does serve to demonstrate the basic commands 
available on the QL. 


Since by now, you all know how to use DEFined 
PROCedures, I put all the turtle commands in a PROC- 
edure called "doit". All the print locations and ink 


colors are contained within the DATA statements. In 
using trutle graphics as designed for the QL, it is 
nice to note that the commands POINT and TURNTO may 
be variables, calculated from within the program or 
assigned by a DATA and READ statement. 


10 PAFER O:CLS:CLS 80 
29 FOR m=14 TO 18 STEP 2 
30 RESTORE + PAUSE 60: CLS 
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40 FOR x=w=1 TO 5 

50 READ a,b,c 

69 doit 

70 DATA 30,27,1,80,27,2,139,27,3 
80 DATA 55,72,4,105,72,5 

90 NEXT x 

100 NEXT m 

110 a=80:b=34:1c=7:m2307 doit 

120 FOR z=1 TO 7:c»z:doit:NEXT z 
130 RECOL 0,2,0,2,0,0,0,6 
140 FRINT HONN, "That’s all folks "; 
190 PAUSE 240: RUN 

160 DEFine FROCedure doit 

170 POINT a,b 

180 INK c 

190 FENDOWN 

ZOO TURNTO O 

210 FOR k=l TO 28 

220 MOVE m: TURN SQ 

230 MOVE m: TURN 90 

240 MOVE m: TURN 90 

250 MOVE m: TURNTO mik 

260 NEXT k 

270 END DEFine 


LESSON NUMBER FOUR 


the new commands available to the QL 
At first glance, it may not appear 
addition , but, as the program 
more to the command 


One of 
user is SELect. 
— be much of an 

‘low demonstrates, there is 
an meets the eye. 

First, remember that from within a SELect, it 
ің possible to revalue any variable, call any 
—+ined procedure or function or any task you may 

nt to assign. It can work from keyboard input, or 
result of computations whithin a program (IF 
Xwi Then). 


In the sample, it simply changes the p string 


^d calls a procedure (the same procedure for all), 
t it could just as easily call a separate 
Ocedure for each SELect, or two or more 


An inventive basic programmer can find a 
fast and easy 


procedures. 
multitude of possibilities here for 
”"ocedure calls. 


WINDOW #0, 450,40, 35, 150 
CSIZE %0,1,0 
4 BORDER #0,5,7 
CLS:CLS #O 
mainmenu 

9 INPUT #ONN" 
errtrap 
fisfif 

6 findit 

STOP 

DEFine PROCedure mainmenu 
CLS:CLS #0 
4 PRINTNNNN" 
RESTORE 54 


SELECT A NUMBER: 


SELECT TEST"NN 


LESSON NUMBER FIVE 


Recently I read a book which was supposed to be 
on SuperBASIC for the GL. However, I was more than a 
Tittle surprised when I came to the section on 
-=raphics. It seems that the author thought the 
raphics potential of the GL was best utilized by 
sading the included software and reading your 
manual on AL Easel. 
While that may be well and good for those 
-elect few who don't wish to include charts or 
raphs within their own programs, it certainly is 
ot for those who want to design real business 
programs. 
It Ís not a great chore to use the graphics 
—“inctions available from BASIC to create charts and 
raphs. And, the speed of the QL, makes it possible 
э use charts more quickly from within your own 
Programs than it is to stop and load Easel. 


Rather than explain in detail the entire 
“rogram below, I'll let it stand on it’s own merit. 
ou will find it easy to include in your own 


rograms. 


10 MODE 4: WINDOW H1.456€,162.35,6: 
FAFER #1,@0:INK H1,7:BORDER Hi,1,7: 
CSIZE %1,0,6: CLS 


T SAVINDOW H 5,650,25,25,147: PAPER 


XC, 2: INK 80,7: BORDER #G,1, 5: 
LS HO 
— 18 high = Q: low = 100: ac= б 
40 UNDER 1: STRIF 3 
50 FOR k = 0 TO 15 
m 68 LET 1th = RNC (2 TO 65) 


"Sis 
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FOR count=1i TD 6 

READ m$:PRINT TO 5,m$\ 

NEXT count 

DATA "fr, "2", "3", "4", "5", — 
END DEFine 

DEFine PROCedure findit 
SELect ON fi 
zirp$-"one"rprintit 
22:p$z"two":printit 
m5:p$e"three":printit 
z4:p$ec"four"iprintit 
r5rp$="five"rprintit 
=bip$="six"sprintit 

END DEFine 
DEFine PROCedure 
IF CODE (fi$)«49 
IF CODE (#1%) >54 
END DEFine 
DEFine PROCedure 
GO TO 28 

END DEFine 
DEFine PROCedure 
CLS:CLS #O 
PRINTNNNN TO 4,"This is "&p$ 
PRINT #O\\,, "PRESS ANY KEY "3 
PAUSE 

100 CLS:CLS #O:redo 


errtrap 
THEN redo 
THEN redo 


redo 


printit 


76 ac = acelth 
80 IF lth>hiQh THEN LET high x lth 
40 IF lth(109 THEN LET low = lth 


180 AT k,0: PRINT °" °"; TO 1th;'". `; 
lth 

110 NEXT k . 

120 PRINT #@,,,,*HOrizontal Bar 
Chare"\,,*High = "';híghi;* LOW * *; 
low, "Average = "; (ac/2@) 

138 FOR к = 16 TO СТЕР 10 

146 LINE к,а TO k,175 

150 NEXT & 

149 PAUSE 

170 UNDER 0: STRIP Ü 

189 CLS: CLS MG 

199 av = o 

200 FOR k = 1 TO 55 

210 LET hgt = RNO (5 TO 150) 

ce av w av + høt 

230 BLOCK 5, mot, kx8,160-ngt, 5 
298 NEXT k 

250 PRINT W080,,,, ‘Vertical Bar 
Chart" 

286 PRINT HG,,,, "Average = °; 
(Gv /< 3) 

2768 PAUSE 

2509 CLS: CLS KØ: POINT 9,6 


290 AC = @: CNT = 9 


5300 FOR K = В TO 170 STEP 2 61% NEXT VER | 

318 LET пр = RND (5 TO 180; 438 PRINT WC u " | 
328 ас ж ас + np:ent x cnt + 1 3 "INT ADS Line Graph'\,,. 
320 LINE TO k,nP Average = “;ас/сте 


350 NEXT k 440 LINE 6, ac/cnt TO 436, ac/ent 


358 INK 2: OVER -1 459 PAUSE 

36G For k = Q TO 170 STEP 5 460 CLS: CLS RC 

370 LINE к,0 TO k,175 479 PRINT fNNr "End Of Demo* 
3ad NEXT к 7 288 PAUSE 

398 FOR k = P TO 106 STEP Š «Си CLS KD 


«8080 LINE 0, k TO 430, к 


LESSON NUMBER SIX 


To run the following demo, have your AL in TV 
mode and a formatted cartridg in MDV1I_. 

Now we have a chance to look at a few of the 
facilities and commands we haven't explored before. 
Note line 35 (аз«К) which is the new AL method of 
assigning the INT command. When the program is run, 
you will notice that the GL always rounds properly 
without adding the .5 to the function ая was 
necessary with the 2048. 

The program then will do some demos of the PAN 
and SCROLL commands, and a screen save and recall. 
If you run the program a second time, make sure to 
DELETE  MDVi display, since the GL will not 
automatically overwrite an existing file. 


10 DEFine FROCedure show int 
15 PAFER Or INK 7:RORDER 5,7,7 ^10 END DEFine - 
20 CTT TER INT 215 DEFine FROCedure file display 

52 FOR kei TD 2 STEP .| 270 SEYTES mdvi displav,131077, 22768 
= LT r 225 PRINT #0\\,,"NOW IT'S SAVED" 

55 aw=k 220 END DEFine 


205 AT 15,15:РБІМТ "TO MDVi1 " 


T Te ul =u. fra = 
M ME SEU RS ERG 235 DEFine FROCedure recall_display 
- ` fe a 


740 CLS #0 .. 
245 FRINT 8O0N*S.,."I"M READY TO RECALL" 
259 FAUSE 240 


50 PRINT TO 2+(a7110); "INT = "sa. 
55 INK 7 
60 END FOF kE 

255 FAFER О 
65 FAUSE 240 ~ 


i 260 BORDER 0,0 
70 END DEFine ^s CLS:CLS на 


25 DEP ine TO Ton ^ томе_ир 270 LRYTES mdvi_display,131072 
` n š 275 END DEFine 


5 SCROLL -1 


IOC j : 

оо NEXT k 300 show int move up 

= N 305 show_int: move_down 
75 CLS 510 sh Т. t: iL i ht 
100 END DEFine Dis do disclavrrile dicnl 
110 DEFine FROüCedure move down тіз Go-CispiayiTi e display 

= _ re ш 220 FAUSE 360: CLS 
115 FOR Есі TO 155 325 recall dieplav 
120 SCROLL 1 > n "ORDRE n 
125 END FOR k 350 PRINT #О\\, END OF DEMO "; 
130 CLS A NOTE ON ARCHIVE 


== қ ; 
135 END DEFine Besides exploring aspects of  SuperBASIC, f$. 


140 DEFine FROCedure move right Vincent Lyon has also established | hinselr as 
Я س‎ = somewhat Of an authority on oo perbaps e 
145 FOR ksi TO 165 Rost misunderstood program of the Psion sulte. ñr. 
150 FAN 5 Lyon has written а popular book on t^e subject 
cc 4-1. called ARCHIVE NASTER. His boot covers many uses an 
SS END FOR kE applications of the progran, and takes the user 
160 CLS through all of the commands and functions. In t^e 
= : process, the usar will апа up with жопе valuable 
165 END DEFine business software Like Inventoryr accounts 
170 DEFine FROCedure do displav receivabla, and nail list programs. ARCHIVE MASTER 
175 CLS:CLS #0 recently received very high marks іп а review 
I s Le . 


published by а national РС magazine. I? you would 
like to get details about the bool, contacts RAG 
ENTERPRISES, 1419 1/2 7th Séreet., Oregon City, OR 
97045, phone (502) 655-7484. -T. Woods 


180 BLOCK 70,120,10,10, 
185 BLOCK 300,10,85,70, 
190 BLOCK 20,120,25,15,2 

195 AT S.8:FRIMT "THIS IS THE DISPLAY” 
200 AT 12,10:PRINT "I WILL SAVE IT" а 
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QUILL Update For The Sinclair QL Printer 


by Matthew Zenkar 


To adapt Quill to drive the Near Letter Quality mode of the Sinclair 
QL printer, Place your backup Quill cartridge in Microdrive 1 and, 
type lrun mdvl INSTALL BAS ENTER. 

When install bas is through loading, it will be running and, you 
will be prompted to enter 1, or 2, for the Microdrive on which you 
wish to install the new printer. Type 1 ENTER. 

The next prompt will ask you to indicate which type of port you are 
using serial or parallel. Press ENTER for the serial port. 

When the printer list appears press either Tl, until the cursor 
reaches the printer driver entitled OTHER. Once the cursor is on OT- 
HER press F2. The effect is to copy the OTHER printer driver, to 
allow you to rename it and, set up a new printer driver. After you 
are through setting up the new printer driver, the OTHER printer 
driver will still be on the list as will the new one. OTHER cannot 
be deleted. 

After pressing F2, a list will appear like the ones on pages 4 & 6, 
of the information section of your QL manual. Press + then type 
QL-HLQ ENTER. This gives the new printer driver а name. 

Press 4 until you reach the line CONTINOUS FORMS: Then press э. This 
will change the word NO to YES. The QL Printer handles continous 
forms. 

Press T until the cursor moves up to the name line and hold it. If 
you are using a TV, this will shift the list up so that the first 
line displayed is, the END OF LINE CODE: line. Keep the T key 
depressed until, the cursor reaches the Preamble code line. The end 
of line code can be left alone. The nemonics CR,LF have the same 
numeric equivalents to the nemonics CR,NL which is the code that the 
QL Printer uses for the end of line code. 

PREAMBLE CODE: line. Press + then type exactly, ESC,'O0,CAH,ESC,'x,'1 
ENTER. After you have pressed enter, the line must look exactly like 
the line on the back of this sheet. If it does not,’ press + again 
and repeat the procedure. To enter nemonics like ESC you need only 
type ESC followed by а comma(,)?. To enter numebrs or letters they 
must be preceeded by an apostrophy('). 

Press 4, POSTAMBLE CODE: Press +, type exactly, ESC,’x,'® ENTER. 
Press 4, BOLD ON: Type exactly, ESC,'E,ESC,'G ENTER. 
Press 4, BOLD OFF: Type exactly, ESC,'F,ESC,'H ENTER. 


+, UNDERLINE ON: Type exactly, ESC,'-,'1 ENTER. 
i, UNDERLINE OFF: Type exactly, Е5С,"-,"0 ENTER. 
1, SUBSCRIPT ON: Type exactly, ESC,'S,'1 ENTER. 
i, SUBSCRIPT OFF: Type exactly, ESC,'T ENTER. 

+, SUPERSCRIPT ON: Type exactly, Е5С,"5,"9 ENTER. 
i, SUPERSCRIPT OFF: Type exactly, ESC,'T ENTER. 


+, TRANSLATE1: Type exactly, '£ ENTER. 

Do not change any lines that are not required by these instructions 
to be changed. 

Preamble Code line  nemonics initialize the printer, clear the 
printer buffer and, turn on the Near Letter Quality mode, which 
results in the N.L.Q. indicator light on the control panel of the QL 
printer turning on. 

Postamble Code line nemonícs turn off the Near Letter Quality mode 
after the document is through printing. 
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Bold On line nemonics turn on both the Bold type mode and, the 
Double strike type mode. Both modes are used to provide a high level 
of character enhancement over the Near Letter Quality character 
mode. 

The only other line of intrest is TRANSLATE1. Its sole character is 
the pound (£) symbol. This allows Quill to print а £ symbol on the 
Sinclair QL Printer. 

After you have the codes set, press F5. This will install and save 
the printer driver on your Quill Backup. Back up this cartridge. To 
install QL-NLQ on Abacus; before escaping the printer list, simply 
remove the Quill Backup from mdvl and, place the Abacus backup 
cartridge іп mdvl . Be sure the cursor is on QL-NLQ press F5. This 
will install and save the printer on the Abacus backup cartridge. To 
install the printer driver on Archive, reset the QL and, enter 
either the monitor or, TV modes by pressing Бі or, F2. Place the 
Archive Backup cartridge in mdv2 and, type; delete  mdv2 prin- 
ter dat, Enter. Place Quill-NLQ or,  Abacus-NLQ cartridge in mdvl_ 
and, type; copy mdvl printer dat to mdv2 printer dat, Enter. This 
will install the NLQ printer driver on the Archive cartridge. Backup 
these cartridges also. @ is shift 2. 


DRIVER NAME : QL- NLQ 
PORT : serl 
BAU 
E 008 TRANSLATE1 : £ 
PARITY : None 
TRANSLATE2 : NONE 
LINES/PAGE : 66 
TRANSLATE3 : NONE 
CHARACTERS/LINE : 80 
TRANSLATE4 : NONE 
CONTINOUS FORMS : YES 
| TRANSLATES : NONE 
END OF LINE CODE  :CR,LF SEN 5. 
PREAMBLE CODE : ESC, ©, CAN, ESC, x, 1 TRANS i 
| TRANSLATE7 : NONE 
POSTAMBLE CODE : ESC, x, 2 
: TRANSLATE8 : NONE 
BOLD ON : ESC, E, ESC, G 
] TRANSLATEO : NONE 
BOLD OFF : ESC, F, ESC, H å ONE 
UNDERLINE ON :ESC,-,1 TRANSLATEl 
UNDERLINE OFF :ESC,-,0 
SUBSCRIPT ON ` : ESC, S, 1 
SUBSCRIPT OFF : ESC, T 
SUPERSCRIPT ON : ESC, S, 0 
SUPERSCRIPT OFF : ESC, T 
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TEXT ADVENTURE GAME EXAMPLE 
FOR THE SINCLAIR @L 


by Dave and Rob Johnson 


Here is a TEXT ADVENTURE GAME for the Sinclair 
8L called IODDL-GUEST. It is intended to show other 
programmers how a basic text adventure game is 
constructed. As it is shown, adventures are not hard 
to make, but a “mapping-out* of the setting and the 
use of a flow chart is also recommended. 


19 WINDOW 512,256,090, 0: CLS: PRINT: CSIZE 3,1: PRINT" TODDLEquest",,," by Dave & Rob 
Johnson",," for the Sinclair QL 1987": PAUSE 50:CSIZE 9,0:a=9 

20 PAUSE 150 

100 PRINT" Background: You are five years old, and you are trying to get into you 
r house."," The problem is the door knob is to high to reach!" 

105 RESTORE 

110 PRINT: PRINT: commands: READ words 

12@ PAUSE 350 

130 PRINT: PRINT" You are at the door, the knob looms above you.","Near you is a " 
; words: PRINT" What will you do?": INPUT аз 

149 DATA "CHAIR'," ROCK", "рос" 


145 IF a$="up" THEN PRINT’ Your too short to do that!....":GO TO 120 

150 IF a$="dn" THEN PRINT’ Where are you going, to dig а hole?...":GO TO 120 

155 IF a$="north'" THEN PRINT'"That's better now your going some where...":GO TO З 
29 


160 IF a$="south" THEN GO TO 390 

165 IF a$="east'" THEN GO TO 399 

170 IF a$-"west" THEN GO TO 200 

200 PAUSE 300: а=м+10: PRINT"You see before you a window, what will you do? ç OPE 
Н / LOOK >": INPUT b$ 

210 IF word$="CHAIR" AND b$-"open'" THEN PRINT"You take the ";word$;" and open th 
e window. ":GO TO 3009 

215 IF word$<>"CHAIR" AND b$="open" THEN PRINT"You loose your balance and fall a 
nd hit your head....": PAUSE 350: death 

220 IF b$=" look" THEN PRINT"Your too short to do that.....":GO TO 119 

230 STOP f 

300 IF a$=" south" THEN GO TO 1900 

310 IF a$="east'" THEN СО TO 1010 

330 IF a$-"north'" THEN GO TO 1909 

340 IF a$="west'" THEN GO TO 1099 

500 PRINT "YOUR OPTIONS ARE: FORWARD OR RETURN € to the door. >"; INPUT а? 

510 IF a$-"forward" THEN PRINT'"The Ice-cream truck turns around as you walk down 
the street."," You can see it weave back and forth. Now you realize why there 1 
s à red spot on"," the front of the truck, as it hits you!":PAUSE 350:death 

520 IF a$-'"return" THEN GO TO 129 

1000 PRINT" You are, or seem to be, trying to leave home and the anti run-away b 


racelet will"," call the police and you will start life with a crimenal record t 
hus unable to"," continue play. ":PAUSE 500: INPUT аз: IF a$-"south": ELSE GO TO 1 
29 

1010 PRINT " Toddleing along the sun is in your eyes and you can see the ісе-сге 
am man weaving"," through traffic with a red spot on the front fender. Quickly 
you dig into your"," pocket and find the quarter that you have been saveing, yo 
u wave it at"," the man in the ice-cream truck but he only looks at you with a 
drooling smile"," as he races passed without stoping. Well you are at the corner 

of your home,"," which way will you go?":GO TO Seo 


2000 DEFine PROCedure death 

2010 CLS:CSIZE 3,1: PRINT: PRINT'xx*x YOU ARE DEAD!! жж" 

2020 PRINT"HA! HA!! HA!'!":PRINT"YOU HAVE COMPLETED: ";a;"% OF THE ADVENTURE." 
2021 BEEP 0,1,1300,150,1 

2022 FOR і = 1 TO 150: NEXT 1: BEEP 

2025 STOP 

2030 END DEFine 

2040 DEFine PROCedure commands 

2045 PRINT XXK KKKA KKK K KKK OK" 

2050 PRINT" ** COMMANDS ARE ***'' 

2055 РБІМТ"ХХЖХХЖЖЖХЖ КА KK KKK KK" 

2060 PRINT "UP, DN, NORTH, SOUTH, EAST, VEST, FORWARD, RETURN, LOOK" 
2065 END DEFine 
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3000 PRINT"The window is open and you fall in. Before you, you see the living ro 
om. You are very hungry and you see å mouse beside your Dad's Sinclair QL and yo 


u eat it! YEECH!!! What will you do? ( LOOK / RETURN )":a=a+10: INPUT b$ 
3010 IF b$-"look" THEN PRINT"To your left is a doorway and to your right is a wi 
ndow. There.is nothing","of intrest here." 


3020 IF b$="return' THEN GO TO 299 
3030 a-a-10:PRINT"You enter the living room and your Dad is sitting in his chair 


He gets up from his","chair and gives you a spanking because you were outside 
and you know your not sup-"," posed to be out there in the first place.":PAUSE 3 
SQ: win 
3050 DEFine PROCedure win 
3055 CLS:CSIZE 3,1: PRINT: PRINT" YOU VIN!!!" :PRINT"YOU HAVE COMPLETED": PRINT а; 


"X OF THIS ADVENTURE." 
3060 END DEFine 


MULTI-QUILL COPIER 


by Joe Newman 


Have you ever wanted to make more than one 


printout of a QUILL file? Have you ever tried making ask you for the drive number you wish to use. You 
more than one printout? If so, you know what a task can enter 1 or 2 (or higher if you have extra 
it is...a hassle. In order to print a file, you must drives). You will then be asked 1% you are using 
hit FJ, then P, then hit ENTER three times. And that diskw...enter Y or N. Then enter the name of the 
only prints one copy of the file. You must wait for file you wish to printout...do NOT include the drive 
the file to print, then repeat the above procedure specification ог extension (i.e., just REPORT). Now 
for each copy. Assuming you can't just run to a you will be asked to confirm your choices. When they 

are correct, you will be asked how many copies you 


hotocopier every time you need multiple copies of a 
Bull) tile, the yellowing program is ре you. wish to print. Once you enter a number (MAKE SURE 


YOUR PRINTER IS ON AND PAPER IS LINED UP CORRECTLY!) 
With my "Multi-Quill* copier rogram Ou can 
make as many copies of å 5981 program am you would printing will commence. You can now kick back as the 
like, with ease, and even unattendrd! Here's how: program handles all the printing. 
Type in the copter program and save it. You can 
shorten the prompts and leave out the REM lines to 
help save typing time. I have tried to make the 


Here is how it all works: 
Line 70 combines your drive specification with 
your chosen drive number. 


program easy for all, regardless of programming 
experience. The program is device independant, so it Line 135 then combines this with your file name 
will work with disk or microdrive. If you have and the LIS extension (i.e., MDV1 REPORT LIS). 
another type of mass storage, you just have to Lines 140 to 160 are the loop which controls 
change the drive specifications in line 60. the printing. Your file Is just copied right from 

Now run Guill and either type or load ina storage to SER! port. Since your file was printed to 
file. Then, instead of printing the file to the tape/disk, when it is copied to the printer it will 
printer, you will print it to your storage device. print correctly, including any embedded control 
To do this, hit F3, P, then ENTER only TWICE. Now, codes. 
instead of "to printer’, type in a name for the file Line 155 prints a space to the printer just to 
(i.e., REPORT). Then hit ENTER. The file will now be make sure the printer buffer completely empties for 
saved in the exact same format as if it were being each page. The CHR®(12) is the Epson (GL Printer) 
printed. You can use the name a file aiready has, as code for a form feed. This makes sure that each copy 
files printed to storage are saved with the LIS ex- of the file is on a new page. You can remove this if 
tension, NOT DOC. blank pages are left between each copy. 

You may now reset your GL апа LRUN the copier I hope you put this program to good use, If you 
program. Make sure you disk or tape with the file have any questions or comments, call or write to me: 
you want to print is in a drive. The program will Joe Newman, Variety Sales, 525 W. Jersey St., #20, 


Elizabeth, NJ 07202. 


10 REMark ЖЖЖ MULTI-QUILL COFIER 
20. REMark EC by JOE NEWMAN +++ 
SO REMark . Summer, 1986 
40 CLS; DLS #0: CLS #2:INFUT #0, "Which drive is your file on? Ç1-2)2”; drive 
50 INPUT, #0,"Are you using disks? (Y/N2";ans$ 
60 IF ans$="Y" OR ans$-2"y" THEN d$="FLF"; ELSE ad$="MDV" 
70 drives$=d$&drive&" " 
SO INPUT #0, "Name of file (without extensions” files 
90 CLS: HO 
100 (PRINT "Your choices="|FRINT “Drives”; drives PRINT "File="; filles 
110 INPUT #О,”А11 correct? СУХИМ)” ans, IF ans$="p" OR ans$="N" THEN RUN 
120 INPUT. 40, "Number of copies to таке?” copies 
130 CLS! CLS #0 
195 сору. doc$-drive$Zfile$£àí" LIS" 
140 Ок lomp=1| TO copies 
150 COPY copy, doc$ TO ser 
155 OPEN #3,serliFRINT ЖЗ,” "iPRINT #2, CHRSC)2) CLOSE #5 
150. NEXT loop 
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The Heart of the Sinclair QL...the 68008 


by Real Gagnon 
(courtesy of SUM Magazine) 


There is great confusion about the QL. 
The question is: in which computer 
category does the QL fall? The 32, the 16 
or the 8-bit computer!?! It depends on the 
point of view. For now, we can say that 
the microprocessor, the MC68008, which 1s 
the heart of the QL, is an 8/32-bit type. 


The microprocessor or the Central 
Processing Unit (CPU) is the nerve center 
of all activities in the computer system. 


It has generally 3 major tasks: 
l-Control of operations 
2-Interpretation of data 
3-Execution of instruction 


But a CPU alone is not very useful. The 
CPU needs memory and some peripherals to 


communicate with the outside world. The 
communication is possible via a computer 
BUS made up of multiple connectors which 
carry information to or from the CPU. A 
computer has generally three main bus 
types: 

l-Address bus 

2-Data bus 


3-Control bus 


Until now, most home computers were 
built around an 8-bit CPU. (8-bit CPUs are 
designed to work on 8-bit words at a 
time.) The two most popular of these were 
the Z80 (ZX81, TS2068, TANDY) and the 6502 
(C64, ATARI). The 68008 of the QL 1s, like 
we previously called, an 8/32-bit because 
it has an 8-bit wide data bus and works 
internally on 32-bit words. On this point, 
the 68008 is similar to the INTEL 8088 
(IBM PC) which is an 8/16-bit CPU because 
of its 8-bit data bus and 16-bit internal 
structure. Apple's Macintosh is a 
16/32-bit with its MC68000. 


MC68008 vs MC68000: THE HARDWARE SIDE 


The MC68008 is the "economical version" 
of the MC68000. In fact, the MOTOROLA's 
68000 series forms a real family. The 
68000, itself, has a 16-bit wide data bus, 


the 68008 has an 8-bit one and the 68020 
has the 32-bit wide data bus. The 
"advantage" of the 68008 over the other 
members of the family is, like че said, 
economical because the most commonly 
available low cost support chips are 
organised on an 8-bit basis. This means 


that these can be more easily designed gg 


into a system around the MC68008. Also the 
necessary connectors are smaller on 8-bit 
data bus systems than on a 16-bit data bus 
systems. 

The address bus has been reduced on the 
68008 to 20 address lines (24 on the 
68000) and 3 of the 68000's control 
signals are not directly present on the 
68008. These omissions are justified by 
the fact that the 68000 is a 64-pin I.C. 
and the 68008 is a 48-pin I.C.. With 20 
address lines, the QL can address directly 
1MB of memory. There is no need here for a 
complicated BANK SWITCHING system like on 


the COMMODORE 128 and ATARI 130XE. On the 
QL, all the memory Is accessible anytime. 
The 68000 has 2 pins not present on the 
68008, UDS (upper data strobe) and LDS 
(low data strobe), but on the 68008 the 
pin DS (data strobe) does the same job. 


Also the VMA (Valid Memory Address) is not 
present, an external circuit is required 
here to simulate it. 


MC68008 vs MC68000: THE SOFTWARE SIDE 


The 68008 has the SAME instruction set 
as the other members of the 68000 family. 
With only 56 instruction types and the 14 
different addressing modes, the programmer 
can access up to 1000 powerful in- 
structions. These instructions can be from 


1 to 5 words long, that із 2 to 10 bytes 
long. The 68008 (like the 68000) has 17 
all-purpose 32-bit wide registers, one 


16-bit FLAGS register and a 32-bit Program 
Counter. The 32-bit all-purpose registers 
means SPEED because complex operations can 


be carried out internally to the 68008 
with the minimum need of data to or from 
memory. Each one of the all-purpose 


registers can be used like an Accumulator 
and we can do operations on 1 bit, 4 bits 
(DIGIT), 8 bits (BYTE), 16 bits (WORD) and 
32 bits (LONG WORD). 

In conclusion, íf you love machine code 
programming then the Sinclair QL is 
certainly a good choice. 


Editor's Note: Mr. Gagnon is the editor of 
SIN, "the only French North American 
Sinclair oriented magazine”. 


MORE ON 


@GOLING THE GL 


by John E Juergens 


I would like to express my thanks to M. Vincent Lyon for his article 
Qool AL, TD VS, #5, Jul-Aug 787 issue. 


Although I had not suffered a heat problem loss on our QL prior to 
his article the great amount of heat present on the top right side of 
the computer has always bothered me. I knew that sooner or later it 
would cause problems or failure. 


I would have done something long before reading "Qool QL" but no idea 
of the merit Mr. Lyon supplied occurred to me. 


I have implemented his suggestion about the Radio Shack 3" brushless 
DC fan with only slight modification. Unlike some suggestions, it 
works completely to my satisfaction. 


As I do not care to have the fan’s exhaust blowing on me and because 
a 9 VDC adaptor runs the fan faster than our needs. causing excess 
xhaust and noise, three additional things were done: Legs on the 
fan, the fan on top of the QL and powered with less voltage. 


The legs and the placement of the fan allow the exhaust to be 
directed upward, away from myself and cooling to occur along the 
Originally engineered lines, i.e. by "pulling" heat out of the upper 
right exit vents. 


Although the Radio Shack specifications state that the fan requires 
7-12 VDC. it seems to run well at 5.8 VDC providing sufficient 
cooling for our local temperatures and almost silent operation. 


The fan has pre-drilled holes at each corner, front and back, for a 
total of 8. Two-2" and two-4", 4-40 bolts (or slightly larger) will 


fit the 4 back holes. Nuts. two per bolt, will allow leg height 
adjustment which in turn adjusts the angle of the fan and exhaust 
with respect to the QL. Four short lengths of rubber windshield 


wiper tubing may be cut and pushed over the bolt ends to further 
lessen noise and maintain fan placement. 


The 5.8 VDC comes from a multi-voltage adaptor which I had purchased 
from BEST Co. sometime ago for $7.95 and which I regularly use to run 
a small printing calculator. Radio Shack also sells a multi-voltage 
adaptor (R/S 273-1650, $11.95. '88 Cat.) 


My adaptor has a voltage switch which allows selection of 3, 4.5, 6, 
7.5. 9 and 12 VDC and a current switch allowing a choice of 200 or 
500 ma. The Radio Shack adaptor appears to have only a voltage 
switch allowing 5, 4.5. 6. 7.5 and 9 VDC at 300 ma. but should 
work as well. 
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After experimenting I found that the 4.5 VDC and 200 ma. settings 
worked best for me. They produce the measured 5.8 VDC 8 55 ma., 
adequate cooling, near-silent operation and still allow use of the 


calculator. 


It should be kept in mind that some hooking up is necessary as the 
fan comes with two wires which needs be attached to the adaptor. The 
adaptor comes ready to plug into any number of things but not into 
the fan. A couple of bright spots here is that if one incorrectly 
hooks the adaptor to the fan, the fan won't work but no harm is done. 
Just reverse the leads. Even if one can’t determine which lead is 
plus or minus. one has а 50% chance of getting it right the first 


time by simply guessing. 


The fan is placed with the two rear legs on the upper right corner of 
the OL over the upper heat exit vents. The two front legs rest on 
whatever supports the computer. Although the QL power supply and 
monitor plugs occupy space right below the heat vents and seem to 
Block fan placement the front legs are sufficiently wide apart to 
allow them to clear the plugs. offer a fairly wide adjustment range 
and do the job. 


The adjustable power supply should just about guarantee a Quietly 
Qooled QL even on the hottest day no matter how long one operates it. 


A word of caution may be needed: The fan appears to use a permanent 
magnet along with magnetic flux built up by the adaptor current to 
operate. Stray magnetism can alter/destroy taped data. Although the 
fan sits far enough away from the microdrives to pose no observed 
threat to cartridge data integrity it would not be prudent to put or 
pass cartridges any closer to the fan, whether running or not, than 
that required to insert/remove them from the microdrives. In short, 
keep cartridges away from the fan! 


In balancing the rather small amount of money and effort involved 
against the satisfaction I now get from touching the previously very 
hot top right side of our QL and finding it completely and quietly 
cooled, the bottom line is all plusses and no negatives so far. 


QL ROM Cartridge slot 2x Local area network 
2 x Joystick ports 2 x RS-232-C TV (UHP Monitor 
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Expansion slot 


Microdrive extension slot 
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Why the QL? 


by Mike de Sosa 


1. The Sinclair QL is, quite simply, the best value for money 
of any professional computer 


3. Many OL users who also use big name computers at work, prefer the 
AL for mang reasons. 


4, The GL Users and Tinkers Association QURHTED Library now provide 
twenty quad-density floppy disks containing GL software of all 
types and descriptions at low-cost to menbers--contact Tom Bent 
for further information on QUANTA, ite Library, & ite newsletter, 


5. Low-cost and innovative QL firmware and hardware is only just nou 
approaching fully developed status, utilizing the BL's full power 


6. The T/3 2868 is an excellent computer, but it lacks the capacity 
to run comprehensive database, spreadsheet, desktop publishing, 
and integrated (multitasked) programs. The QL with TRUMP CARD nou 
makes use of 896K of КАЙ, 


2. Most QL users are unaware of or do not make use of the latest QL 
products uhich can transform operations of the QL to such an 
extent that it should be the computer of choice for manu! 


To take fuller advantage of your OL, subseribe to TIME DESIGNE Magazine ($16.99 a year for six issues) ind 
purchase Br, Hike de Sosa's excellent book, TAKING THE QUANTUM LEAP, the Bost оре ое бабе book où the OL, written 
in language angone can understand, which explains maag useful things about the OL not found in its user guide, 
Both are available fron TINE DESIGNS, 29722 Holt Rd, Colton, OR 97017; tel, ($03) 00050 Conpuderve If 
10420. Order both nou! 
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